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Take a look at CMD's Sizzling Summer Specials 









HAMLink Packages HD - RAMLink Packages RAMDrive Specials SwiftLink Package = 
*RAMLink, RAMCard Iland RTC =| * RAMLink, RAMCard II 0 MB and RTC | * RAMDrive 1 MB $225.00 | » SwiftLink -232 Cartridge Ba 
¢ RAMLink Battery «HD Series Hard Drive * RAMDrive 2 MB $275.00 | *DB 9 to DB 25 Modem Cable es 
¢ 1 or 4 MB SIMM Module ¢ Parallel Cable * Shipping $25.00 GEOS Combo Package $60.00 | ° Terminal and File Xfer Software 

: ¢ Shipping Charges Included a 
1 MB RAMLink package $275.00 |HD-20Pkg $600 HD-40Pkg $775 | « Perfect Print Complete System fod ot 

4 MB RAMLink package $375.00 |HD-100 Pkg $975 HD-200 Pkg $1175 | * geoMakeBoot « Shipping Included SwiftLink Package $45.00 &: 


Sumner np sonc hei - bed oiiere? ee Hel andi 31, Views Drees may be limited, cortact CMD for availability. CMD reserves the right to change pricing if necessary. 
SO RRS EO eerereeererereeeeeeeeee eee oo NE EEN RARER eee 


" Eliminates Jagged output + Resolution up to 360 x 360 DPI (24 Pin), 240 x 216 DPI (9 Pin) » 
GEOCABLE compatible + Allows muktiple copy printing « HQ drivers enhance graphic output 
Perfect Print LQ is a complete print enhancement package for GEOS that delivers the highest quality dot matrix ce 

output possible. Includes a unique print utility and font set for enhancing GEOWRITE documerts, utilities for e 


creating fonts, and high quality drivers for other GEOS applications. Improves text and graphic output on S 
virtually all 9 & 24 pin dot matrix printers and supports font attributes such as italics, outline, underline, bold, etc. se 
Main system (All drivers, utilities, and 7 fonts) $34.95 + Font Package (42 LQ fonts) $29.95 ae 






Complete sheds = pen & wes $49.95 « bachlal sda $5.00 Canada add $4.50 
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Compact -Allthe features rove ever wanted from RAM 
expansion in a compact unt. Five capacities: 512K, 1,2, % 
S 4, and 8 megabytes. Dimensions: 6°l x 3"w x 1h. 

3. Expandable - Now RDX Models allow for users to 

: expand RAMDrive up to 2, 4, and 8 megabytes. 

= Compatible -Use RAMDrive with GEOS, CP/M, Oink, | 
BBS programs, productivity software and more. 

ee =. Non-Volatile - Extemal power supply eliminates drain on 

"38 computer power supply and retains data ietitely. 


The Ultimate In Mass Storage for the 64/128 = Power Backed REU Interface and 
+ Capacity -20 Mb to 200 Mb capacities enable you to # Expandable RAM Disk S 
Store the equivalent of up to 1250 1541 (170K) disks. €% . Non-Volatile Storage - Operates on its own extemal § 
* Speed - The fastest Commodore compatible hard e power supply. Optional rechargeable battery back- -up # 
drives. Speeds up to 50x faster than a 1541. retains data even during power outages. es 
Compatibility - Ideal for use withGEOS, CP/M, Q'Link, 2 «Compatible - Use GEOS, CP/M, Q-Link, BBS # - 
BBS programs, productivity software and much more. programs, productivity software and more. RAM port ’ a 
+ Compact Size - 3 1/2" SCSI technology allows for a #4 a itl rection : Dkiberpebty weg capaciy. 2 
Internal rechargeable batteries retain data up to 7 days. & compact case about the same size as a 1581. jh aa = oe 
© RDXunitsuse anoptional external battery and also retain 2 + Expandability -Chainuptosix SCSI devices orconnect : User. © pandas nema cae sows 
data for up to 7 days. / to Macintosh, IBM-Compatible & Amiga computers. 2 — ©xpansonup to 16 Mo by using standard SIMM's. 2 
=< FAST - Up to 400x faster than a 1541; 20x faster than # + Built-in Real Time Clock -Automatically time and date | : * FAST - Up to 400x faster than a 1541; 20x faster than £2: 
= RAMDOS: Built-in JitlyDOS speeds access to CMD Hard = stamps files and sets the GEOS clock. RAMDOS; Built-in JiffyDOS plus parallel interface to #: 
Drives and JiffyDOS-equipped floppy drives. *HD-DOS - Organize storage into as many as 2541 canes: si dais vINGE ee 
= + Easy to Use - Plugs into the cartridge port. Operates like partitions that emulate 1541, 1571, & 1581 drives or Be ° | easy to Use - Plugs into the Cartridge Port. Operates £: 
a standard disk drive. File and disk copiers included along # expand to 16Mb with MS-DOS style subdirectories. like a standard disk drive. File and disk coplersincluded #:: 
withparlitioning, support ubiities, and new GEOS configure. eS + Easy touse - Connects like a standard drive and easy erong wilt paling ene E02 Suppor UImes: - sa 
RS . . 48 sete 
RD-DOS -Organize RAMinto as many as 30 manageable a to read manual explains all facets of drive operation. & *RL-DOS - Organize RAM into manageable partitions & 
partitions that emulate 1541, 1571, & 1581 drives ors © Comescomplete with copiers and maintainence utilities. F that emulate 1541, 1571, & 1581 drives or expand to 
expand to the full RAM capacity with MS-DOS style the full RAMcapacity with MS-DOS style subdirectories. 
subdirectories. Auioboot 64 and 128 mode programs. | HD- 20 CALL FOR PRICE RAMLink (no RAMCard) $179.95 Battery w/cable $24.95 
HD-40 $599.95 


we RAMLink (w/ RAMCardil) $219.95 HD Parallel Cable$14.95 

RO S12 $1999 RD-1 Sotear” RD-2 Sess a RAMLink (RAMCardIVRTC$239.95 RTC add-onKit $29.95 
ROX-1 $264.95 RDX.2 $319.95 RDX4 guoa0 = HD-100 $840:55~ $799. 95 ! a se IMM 

HD-200 — ne 95 A | RAMCard Il (without RTC$59.95 4MbSIMM $145.00 
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RANCard Il wih RTC) $79.95 1MbSIMM $42.0 
RDX-8 $549.95 RDXExtemalBatiery unt $24.95 
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Hi-performance ROM upgrade + Performs all A Powerful New Desktop forGEOS 2.0 —- Provides eid bile ni style _ Legh Lbs po ge haas ag eb lhe al  l i 
Be disk accesses up to 15 times faster orbinn » communicates at speeds from 300 to 38, can od to your home stereo or amplified speaker gi: 
Be. “Gisrscised 60% : igs Buiee DOS Task Switching « Three drive support ——_pyavides relable 1200 and 2400 bps using PS-232 Hayes: systemstopovideawholenewdimensionin sound Enjoy hundreds B= 
Ban soley compan ai Access full capacity of HD, RAMLink, compaible modems. Indudes terminal programs and of publicdomain sterea songs, import MIDIfles, oruseComputels 3:5 
Ba Wedge & file copier - Easy to install RAMDrive, expanded REU's & GEORAM software for transferring files to other computers. Music System book and SID editor to create original stereo music, 32 
se (Please specify computer & drive model with serial#.) Bes 
ae JiffyDOS 64 or SX-64 $59.95 galeWay 64 $29.95 » galoWay 128 $28.95 SwitLink (Cart) $39.95 » SWIFTLink Cable $9.95 SID Cartridge $39.95 » Compute's Music Book $22.95 es 
“iti 128 of 128D $69.95 » Add! Drive ROMs $29.95 gaan Os Combo $44.95 » Shipping: $5.00 Shipping: | US: $6.00 (Carp, sian hones Shipp US: $6.00 (Cats $5.00 0 (Bock) #750 Goth Boe 
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qeoMakeBoot dee booting GEOS from nearly all soit ad making ahi) sales of the GEOS boot i easy Vane ccnoriors Besides being 


ae ge é O OM a KeBoo ss : ot compatible with virtually all CBM compatible devices, gaoMakeBoot also eliminates the need for installing some desk accessories and supports CMD 
: oe epee RAMLink and RAMDrive. geoMlakeBoo! i is simple, inexpensive and onthe 10 use. teenie 1 - ¢ Aes 00 ) shipping 
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| “Ordering Information and Shipping Charges 
CHO Hard Drives: Continental US: $25.00 per dive (UPS ground), $35.00 (2nd-Day), $45.00 (Next-Day). Canada: $50.00 (Aismail). COD to U.S. only $5.00 add'l charge. Foreign prices: Add $100.00 to U.S. Retail Price 
JitiyDOS: Add $5.50 per order (UPS ground), $10.00 (2nd-Day Air), plus $5.00 for APO, FPO, AK, Hi, and Camada, or $15.00 for overseas orders. No add! shipping if ordered with any hard due. COD's ack $5.00 
RAM Link: US: $12.00 (UPS), $20.00 (and day), COD add $5.00. Canada: $23.00. Foreign: CALL 
RAL Drive: US: $8.50 (UPS), $46.00 (2nd day), COD add $5.00, Canada $18.00,RDX Battery add $3, Fereign:cail 
Payment: MA residerts add 5% sales tax. We accep! VISA, MasterCard, Money Orders, C.0.D., and personal checks (allow 3 weeks for personal checks to clear). Creeit card erders provide the following: 

Card holders name, biling address, home/work phone, card number, expiration date and issuing bank. 


Canadian Cousin can now contact HOLZ COMPUTER SUPPLY, Box 47008, Dover P.O., 3525 - 26th Ave., SE, Calgary, Alberta, Canada T2B 387 Phone: 403-272-1888 Fax: 403-272-2010 3 
» WE VERIFY ALL CREDIT CARD INFORMATION AND PROSECUTE INDIVIDUALS ATTEMPTING TO PERPETRATE FRAUD + pee 
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ORDERS ONLY: 1-800-638-3263 : 
Questions/Support: 1-413-525-0023 + FAX: 1-413-525-0147 + BBS: 1-413-525-0148 #2 

* Office Hours: 10am - Sialise thru Fri « e 
Righter aa ahaa Aah aaa as gerasroannnconeccsaecascaceeomnanannecnne pees 


Creative Micro Designs, Inc. 


15 Benton Drive, P.O. Box 646 
East Longmeadow, idea oC 
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‘twin Cities. 128 as. Published and Copyrighted 1992 in whole by 
 Parsec,- Inc. POB:111. Salem, MA 01970-0111 USA All. rights pasenved: 
PARSEC's Telephone number 1-508-745-9125 (9-5 EST Mon - Fri- Answering 
pachiue voice): (10-2 EST el Mal = Voice support when available) . 


‘ We can ‘be contacted online: GEnie = C128. JBEE (everyday) CIS = 70661,443 
(once a month). Twin Cities 128 is done completely, except some ads, 
on a C-128 using Paperclip. iii (text), Geos (graphics), and custom DTP 
software. Our database.is run on a C=128 using our own custom written 
database software. | Pages are. output from a C-128 to,a laser printer. | 

This magazine is* produced from start to” finish. on C-128 Fcen Auacsiat and 
we are proud of it! | ” i oF whe . 


| This magazine is dedicated to my, “mother to ‘whom I gratefully « owe all my 


«successes: and failures. 
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| RECIPE 128 F4 = Write - Lets you write ea own recipe and — 


A software review - staff , : add it to the disk. 
_ HOME COOKING WITH - % | -F5 = Edit - Gives you the option to edit any of 
‘ HOME SPUN SOFTWARE. | | | | the recipes on the disk. Either the ones that 
Recipe is a program that comes to you on five came with the program or ones of your own. 
disks and it is for the C-128 in 80 column mode. : 
Each disk covers one area. There is adisk for F7 = Quit - You are cautioned to always use this — 
"Breads", "Desserts", "Entrees", "Vegetables", and | key to exit the program to avon aad file — 
"Odds ’n’ Ends". There are 50 recipes on each errors. 
disk, enough to give the novice cook a good start. _ - 
You have room to add your own favorite recipes. HELP = Help - This i is another key that didn’t work 
Each disk comes with its own loader program. Possibyy. because of my configuration. | 
At the beginning you are faced with the The quality of the recipes are on the whole _ 
opening screen and a menu bar across the bottom. pretty good. Most are rather simple to make like, 
oe ey eS Double Crispy Chicken, Dill Spiced Carrots, Lemon 
F1 = List - Will list the 50 recipes on the disk. Mutfins, Escalloped Potatoes, and Prize-Winning 
You cannot cursor to the recipe and have it Apple Pie. Pardon me while I go eat. _ 
displayed but must use F2. | 7 | 
| | In the Odds’n’ Ends category there are recipes 
F2 = View - Is the next option and you enter the for Potato-Celery soup, Cantaloupe Mousse, and a 
code of the recipe such as v-5 for the fifth Shake and Bake mixture. The recipes are quite 
recipe on the vegetable disk. good and simple to make with this data base. 
(continued on page # 9) 


F3 = Print - 1 couldn’t get this option to work. 


Your Source for Top Quality Disks and © 


Accessories - Free Shipping* too! 


3-1/2" DSDD (30 ct) 29.95 20# One-Part Printer Paper, 2500 ct 29.95 | 
3-1/2" DSHD (15 ct) 27.95 To Zip Codes 001-799 add an add'l 10.00 
5-1/4" DSDD (30 ct) 16.95 18# One-Part Printer Paper, 3000ct 32.95 | 
5-1/4" DSHD (15 ct) 17.95 To Zip Codes 001-799 add an add'l 10.00 
» Disk Holders Carbonless Two-Part Paper, 1500 sets 42 .95 
=> 3.1/2", Holds 40 595 To Zip Codes ree add an add'l 10.00 


Buy TWO for only 10.95 
5-1/4", Holds 50 6.95 
Buy TWO for only 11.95 













Surge Surpressor |  ~38.95 











JD's Cos : | ‘Ask about our Special Fundraising 
| ws at! offer for User Groups! | 


P. O. Box 873, Pearl City, HI 96782-0873 
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* Free shipping available on all prepaid orders of $30 or more. COD and orders on account will be billed actual ane costs. Please allow 14-21 days for our free 
shipping service, 5-7 days for COD and account orders. UPS 2nd Day Air and overnight delivery (to some locations) are available at additional cost. Hawaii 
residents add 4% tax. Shipping to APO/FPO, AK, GU, PR will be billed at actual cost. All products are 100% guaranteed. Not responsible for typographical errors. 
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OS PLUS 


By Michael Gilsdorf 


Change the Default Drive, 
Display a Drive Erempe 
and More! : 


OVERVIEW 


OS Plus is a simple time-saving routine whose 
purpose is to make the C-128 easier to use when in 


- direct mode. Written entirely in machine 


language, it is designed to work with both 
JiffyDOS and non-JiffyDOS systems, and provides 


some of the same features commonly found on other 
operating systems such as CP/M and MS-DOS. 


Some features of OS Plus are based upon the — 


’ concept of a default drive. A default drive 


provides you the convenience and freedom of not 
having to type in device numbers every time a 


‘command is-entered. The C128 uses this feature, 
but unfortunately, it won’t allow you to change 
the default settings. It always defaults to’ 


device 8 for BASIC 7.0 commands, and device 1 (the 
cassette) for BASIC 2.0. JiffyDos, on the other 
hand, does allow you to specify the default drive, 

but it only affects the JiffyDos commands - not 

the standard Basic commands. 


A partial solution to the problem is to 
replace the device number in commands with — 


PEEK(186), or if you own JiffyDOS, with PEEK(190). 


For example, the command: 


key 3 drectawy u(peek(186))" + chr$(13) 


will program the F3 key to display the directory 


of the last device used. This technique will not 
work though, if the last device was not a drive, 
and it can be a little awkward at times if you 


need to add file names or edit the command string. 


Furthermore, if the command you want to use isn’t 


_ assigned to one of the function keys, using 
_ -PEEK(186) provides no real benefit in terms of 
. rooney the number of key SORES: 


OS Plus overcomes these limitations by 
allowing you to specify and change the default — 
drive for all the drive related BASIC commands: 


append eta. load peek. buace 


catalog collect ' coneat - copy’ dclear — 
dclose directory dload © dopen . dsave 
dverify header. load | open . rename 
run save _,. scratch verify 


Now, when.a device number does not appear in _ 


_ the command string, Basic uses whatever default 


drive you specified. This feature is only active 
when the computer is in direct mode. That way, a 
program that is running will not have its | 
operation accidently altered. Additionally, any 
attempt to use the cassette at be redirected to 
the default drive. on 


OS Plus ates it easy to pam which drive a 
Basic should use as the default. Simply type the = 
drive letter followed by a carriage return, and OS 
Plus will change the current default drive 
setting. Each letter corresponds to a different 
device number (e.g., A=8, B=9, etc.). Since legal — 
device numbers for drives range from 8 to 30, 
valid drive letters are A to W. | 


OS Plus also sredides a new safonmingve 


command prompt. When the computer is ready to 


accept a command, instead of displaying a 
"READY.", OS Plus now displays the default drive 
letter followed by the error message associated 
with that drive. 


A> 00, OK,00,00 


The prompt serves both as a reminder of the 
current drive so you do not accidently send a 


‘command to the wrong device, and it eliminates the: 
~ need to Print DS$ when an error occurs on the — 
- default drive. If the drive’s error light should 


flash, OS Plus will automatically read and display — 
the error message. It always ensures the DS$ 

error message is read from the default drive - 

even after using a BASIC 2.0 command. Moreover, 
you can redisplay the prompt anytime ‘by merely 
pressing the return key on a blank line: To | 


_better illustrate how the default drive feature 


operates, suppose the folowing ¢ command i 1S 


| entered: 


B> 00, OK, 00,00 | 


directory w10: cHeCtOry 5, 


After the command is ee the dines for 


a device: 10 is: displayed followéd by the directory — 
- for device 9 (the default). “When the prompt 
_ reappears it displays error meee? of the 

_ default drive: | 


 -B> 00, (0K,00,00- 
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If an error had occurred on device 10, it can 
also be displayed by simply changing to drive C, 
and reading the error message. 


Besides ‘providing anew command prompt a 
programmable default drive, OS Plus also | 
reprograms the HELP key so it. redisplays the last 
command line. This feature too is found on MS-DOS 

systems (i.e., the F3 key). Now if the previous 
command is no longer visible on the screen, you 
can display it again with a single key stroke, 
edit it if you mn and re-execute it. 


Lastly, OS Plus makes it easier to indent a 
~ line of Basic'text. As most of you know, text can 

‘be indented by typing a line number, a shifted 
character, and then spacing or tabbing over to 
where you wish the text to begin. After you press 
the return key, the text remains indented when 
it’s listed. However, this procedure requires an 
extra key stroke, and if you edit the line, you 
have to remember to retype the shifted character . 
again, otherwise you will loose the indentation. 
OS Plus eliminates the need for a shifted . 
character or colon. | 


ida $390 ;check status of current 
;device 
bmi. previous ;if not present then use — 
-- sprevious drive | 

lda Sbe ;read default drive 

devchk cmp #508 ;is it 8 or higher? 

| bec previous. :no | 

cmp #S1f ;is it less than 31? 
bec outchk syes, it’s a legal drive # 

previous lda Sfe ;get previous drive 

outchk ldx $9a ;get current output device 
cpx #504 sis it on serial bus? 
bec readds sno, read error channel 
jmp skipmsg 


Sound like a lot of programming? Well 
surprisingly, it’s all accomplished in less than 
256 bytes! As you will see, we will be relying: 
heavily on the ROM routines to do most of the work 
for us. 


PROGRAMMING OS PLUS 

_ Except for a small patch to the CHRGOT. routine 
at $0386, OS Plus is designed to be wedged into’ 
the operating system through the IMAIN vector at 
$0302. Normally this vector points to the MAIN | 

_routine in ROM ($4DC6) which is executed right — 
after READY is displayed. MAIN’s task is to 
accept a command line, and determine if it is to 
be executed immediately, or stored in memory as a 
line of BASIC text. The BASIC loader (seé program 
listing) places OS Plus in the RS232 output 
buffer, initializes a few free bytes at the top of 
page zero, and then activates OS Plus by changing © 
IMAIN to. point to its starting address of $0D00. 
Once OS Plus is finished executing, it returns 
control back to the MAIN routine in ROM. The © 
purpose of the CHRGOT patch is to intercept the 
drive related BASIC commands when in direct mode, 
and have them use the default drive when:no device 
number was specified (or when the cassette was 
chosen). 


Twin Cities 128 Page 06 


: seeing if it contains a valid drive number. If 
not, the previous drive is uséd. It also makes 
gure the output device is not on the serial bus; 


Now, let’s look at how a drive prompt can be 
generated. OS Plus begins by reading $BE and 


otherwise, a conflict may occur when we attempt to 
read and display the drive’s error message. 


;don’t display prompt 
Once we have a valid drive number, the error 

channel of the drive can now be read and stored as 
DSS. If the device is not present, then the ROM | 


routine aborts and we trap the condition the next 





time around when the status is read. 


readds sta $011c :set current drive 
jsr $9243 ;setup to read new dsS 
lda #Sbc -set lo byte address 
sta $04 ) 
-lda #$79 ‘s;set hi byte address 
jsr S£980 finish setup then jsrfar 


-$79bc - read/save dsS 


We have read the error channel and know the 
drive is present, so now we can display the drive 


letter and error message. 


;fetch current drive 


update lda SO01lic 
sta Sbe ;update default drive 
sta Sfe ;update previous drive 
display clc | 
adc #S$39 ;change device number to 
a ;a letter 
sta drive ;store it 
jsr $9281 ;display prompt 
byt $91 /;eursor-up (overwrite 
. ;"ready.") 
drive .byt $41,$3e,$20 ;"a> " . 
-_byt $00 ;end-of-string terminator 
jsr $55e5 ;display dsS - error 
smessage _ 
jsr $5598 ;carriage return 
skipmsg | 
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Before we begin writing the code to have the 


_ HELP key repeat the last command line, let us 


briefly look at how to reprogram the HELP and RUN. 


_ keys using BASIC. BASIC 7.0 provides us with the 
KEY command to reprogram any of the eight function 


keys F1 through F8. But it does not allow usto 


reprogram the HELP. or RUN keys - or does it? To 
find out, let us examine the first few. lines of 


the ce routine: 
60e1 gsr S87£4 ;read the key number 
60e4 dex :ddcrement. the key. number 
e 4 a sby 1 | 
6005 | opx #508... de the key number between 
6007 bee sebes, 2 syes ae 
Nee g0e8 jmp $7428 - :display ' "illegal quantity’ 
| , ;error | | ‘ 
~60ec-6107 ; program the key 


_ The purpose of these lines is to ensure sith 


| key is one of the eight function keys. If it is, 
: the, key is: programmed, otherwise, an error message 





ated. “Now, if these lines are by-passed, 


: : then the k key number is not checked and we can 
"program the HELP and RUN keys too! Like the KEY 





, we will have to confine our strings to a. 


_ maximum of 128 characters, and the. key number must 
| be limited. to.a range from 0 to 9. The RUN key is 


ed a key number of 8, and the HELP key is 





igned 9. For example, to reprogram the HELP | 


_ key to dicey tt the drive error rmceneesS we ne 


ys s 2812,.9,, print ds" +cbeS(13) 


Now, that we koow the Help — can be. 


ages reprogrammed using: Basic, let us see how to. do it 
using machine language. The kernel routine which | 
- programs a function key, resides at $CCA2 via _ 
'_. vector $FF65 (PFKEY). So that the previous © 
command line will be displayed cach time the HELP 
_ .. key is pressed, 
each time a command line is entered. All that is 
required to use PFKEY i is to fill the CPU registers 
_ with the information about the key we want to 
program (i.e., the key nuniber, string length and 
_ location). The command string is always stored in 
: the. nine buffer. at $0200 pointed to by $3D/$3E. 





we will have to program the key 


R). The folowing code programs the HELP 





keynum” _ Idx #$0a 


: routine at: 1 $a0A. is isc call 


en jinitialize .y register to 
;Sff before entering 
;begin by finding length of 
; command string 


findlen iny next. character in command 


ge | string, > 
Ida (83d),y  ;fetch character from input 
_¢ * & | ;buffer | » 8 
bne. findlen «sdf not. end-of-line, Seer 
| - : searching 
sty Sfd * \ssave length of string 


bpl keynum :if length less than 128 

3 ;characters, program key 
-;string too long, program 
.;key with null string 
help key number+1 


null ldy #300 


Ilda #$3d-—- :address of string pointer 
jsx Sf££65_ sprogram the key (pfkey) 
bes null ~  3if£ out of memory, re- 


; program a with null string 


Note: After epee from PFKEY the carry 
status is set if the string was too large to fit 


in memory. If this occurs, BASIC normally — 


displays an error message. We do not want to — 
display an error message here though, since it may 
be a source.of confusion. Instead, if the text is 


too long to fit in memory, we will just reprogram 


tie HERE key watt 2 nulletriag : 


The next feature we will program is the one 


_ which will maintain the spaces between the line - 
number and the beginning of the text (i.e., 


indentation). Before we can write the code, we 


| _ first need to find out-why these spaces are not 
_. preserved. The problem can be found in the LINGET 
routine at $50A0. This routine uses the CHRGET | 


subroutine to read in a line number a digit at a 
time, and convert it into two hexadecimal numbers. 
Since CHRGET skips over spaces, any trailing 
spaces which happen to follow the line number are 
ignored. LINGET ends when it finds the first 





: om camel: asain ies ants eee. ‘The 





characte is held by the text 
in'$3D/$3E. Next, the CRNCH 

hed to tokenize the text. 

Its first duty is to save e the value of TXTPTR so 





_ it knows were the BASIC text begins. But this 
_ pointer does not-point to the first space after 
the line number any more, instead it points to the. 
_ first non-space. aeeataal ee the line 


number! | 
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An easy way to solve the problem is move 
TXTPTR back by using, location $0A which holds the 
_ number of digits in the line number. The 
following code accomplishes the task. 


jsr $0380 | sskip any. leading spaces, . 
;get first digit 


ldx $3d ;get pointer to first digit 
sof line number | | 

stx Sff | ;save text pointer 

jsr $50a0 ;linget - change line number 
;to hex and store 

cle 

lda Sff ;retrieve pointer 

adc S0a ;add number of digits in 
;line number 

emp S$3d ;any spaces after line 
: number? 

sta S3d - ssave text pointer 

beq continue sno spaces, then continue 

inc S$3d ;skip a space — 


continue 


Now, let’s look at how to change the default 


drive. The code below is fairly straight forward: 


. ldy Sfd ;fetch Length of command 
;string 

dey ;one character in string? 
bne immed “e . . 
lda ($3d),y s;get first character 
sec. . 
sbc #5839 ;change letter to number 
jmp devchk ;check if valid, and change 


;default drive 


immed jmp $4dd9 ;return to the main routine 


-in rom 


The last remaining item is to write the CHRGOT 





Te So Nk og ny 


Now when CHRGOT is entered, it gets a byte then 
passes control to the patch below: 


jump jmp patch 
patch sta Sfb ;save contents of .a 
. register 
lda S$7f ; check for direct mode 
bpl direct | ;if direct mode, then 


;execute patch 


These next few lines restore CHRGOT so the 


patch is not executed when a program is running. 


sta Sf£f03 sbank 14 
ldy #802 ;set to copy 3 bytes 
;(sta Sff£03) 
- copy2 lda $4286,y . ;fetch a byte 

| sta S$038d,y } copy it 
dey snext byte 
bpl copy2 ;if more bytes, continue 

| a ; copying 

jmp $0386 ;execute a normal chrgot 


At this point we know the computer is 
operating in direct mode, so we need to check if a 
Basic command has been issued which uses a device 
number. This is done by checking the return 
address on the stack, and seeing where the calling 


routine originated. 


direct pla ;get lo byte address from 
:stack | 
tay - ssave it | 
pla ;get hi byte address from 
 sstack | | 
pha '. sput it back 


These next lines look to see if a SA3E7 return 
address was on the stack. If so,’ we know that a- 


BASIC 7.0 command is being executed. 


patch that will intercept the BASIC drive cpy #Se7 | ;is lo byte address Se7? 
commands. The following. code is placed at the bne basic2 ;no 
beginning of OS Plus to change CHRGOT so it cmp #$a3 ;is hi byte address Sa3? 
executes our patch whenever the computer is in bne basic2 ;no | 
direct mode. | lda Sbe | :fetch default drive 
- sta SOlic . sset as current device 
ldy #802 ;set to copy 3 bytes bne exit sdone - always exit 
| ;(jmp patch) | 
COpy -. Lda jump,y . ;fetch a byte It is not a BASIC 7.0 command so let’s see if 
sta S038d,y scopy it it is a BASIC 2.0 command by checking for a $91E5 
dey snext byte return address on the stack. 
bpl copy ;if more bytes, continue 
; copying basic2 cpy #$e5 | ;is lo byte address Se5? 
bne exit ;no 
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cmp #591 ;is hi byte address $91? 
bne exit ;no 
cpx #801 ;is device the cassette? 
bne exit ;no 
ldx Sbe ;fetch default drive 
stx Sba ;set as current device 
These last Lines restore the stack and register 
contents, and then resume executing CHRGOT 
exit tya ;retrieve lo byte address 
pha ;put it back on stack 
ldy #800 ;restore contents of 
. 3+¥ register 
lda $fb ;restore contents of 
;.a register 
sta Sff03 ;bank 14 
jmp $0390 ;continue with chrgot 


Well, that is it! The complete routine with 
all the features programmed is listed below. It 
is pretty much as we described it, except for some 
additional code to duplicate a portion of the MAIN 
routine and a little more to disable the prompt 
after a Basic program line is entered. 


Type in OS Plus using "T'C-128 Checksum" which 
can be found elsewhere in this or a previous 
issue. The checksum program occupies the same 
position in memory as OS Plus, so be sure to save 
OS Plus to disk before running it. Once you have 
a working copy, you might want to include it as 
part of your normal boot-up sequence. After you 
begin using OS Plus you may find it to be one 
utility you will not want to be without. 


Questions or comments? You can reach me on 
Q-LINK under the name "MIKEALL" or on GEnie 
using "M.GILSDORF1". Until then...Easy DOS it! 


See the next pages for the "os plus.v1.0.sre" 
and "os plus.v1.0.bas" 


RECIPE 128 


Software review continued from page 4 


Like I said I couldn’t get the print function 
to work, it may have something to do with my 
configuration. The Servant, on a ROM chip, is 
present on my computer. I tried to copy all the 
disks to a single 1581 disk but you cannotdo ~ 
that. You must use the 1541 disks supplied or a ' 
copy. . 





In one way this is good, if you only want the 
recipe for Soybean Sandwich Filling, you don’t 
have to wait for all the recipes to load. It 
would be nice to have the program on a 1581 disk 
though. It would also be great to be able to 
cursor up to the recipe you want and have it 
displayed on the screen with a <RETURN>. 


Another problem is that the program is device 
dependant which means that it must be in drive 8. 
Why do programmers make their programs run only 
from device 8 (1541s) or not recognize the fact 
that the people that buy the most hardware are 
also the people that buy the most software. Sorry, 
if it does not work properly with our extra 
hardware or firmware, it will not work properly 
with the readers’ equipment either. 


The seventeen page, unnumbered, dot matrix 
printed manual says if you have filled up 
one of your recipe disks the authors will supply 
an additional disk for that category for $3.00. 
Another minus. 3 


I give this program a"C-". The recipes and 
the concept are good but the form and packaging 
needs work. 


Buddy and Jo Anne Cowden 

NCL Software 306 Highway 60 East 
Dayton, TN 37321 

$18.00 plus $1.50 S&H 


EASYLIST 
A Software review? - Staff 

Easylist by Daniel Lee re-defines your 
function keys with this program. 


F1, gets the directory of disk in drive 8 

F2, loads the disk directory into memory 

F3, prints the directory 

F4, clears the screen 

F5, lists a Basic program in memory 

F6, sends a RUN command with a < RETURN> 
F7, is "DLOAD" 

F8 is "DSAVE". 


This a nice little program, but not worth any 
money IMHO. It would make a nice type in as the 
program is short, only 12 lines. For the person | 
just starting to use their computer this would 


make a good addition to the rest of the utilities. 


O09 


' We believe the price is $3 for the disk and one’ 


sheet of instructions. Daniel Lee, 
1031-B Scott Street, San Francisco, CA 94115 
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PROGRAM 


ke 
hd 
lg 
eo 
le 
jf 
ge 
oj 
hh 
gm 
gd 
jf 
df 
mj 
jk 
fl 
bh 
nb 
ec 
of 


ld 
cm 
Cj 
hf 
cb 
&Pp 
cm 
hf 
ek 
fa 
ho 
df 
op 
gm 


eg 


EE 


ci 
mc 
jk 
if 
gm 
ok 
ic 
cl 
bf 
be 
ek 
oi 


jm 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


"1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


NAME: OS PLUS.V1.0.SRC 


Fe Fe Fe He He He He Fe Fe Fe Fe He He He Fe Fe ve Fe Fe He He Fe Fe Fe He He Fe He He Fe Fe Fe He Fe He ve Fe Fe He He ve Ye Fe 
Jade os plus v1.0  edddiddetcctirit 
Fete He Fe He Fe Fe He He He Fe Fe He Fete Fe Fe Fe He Fe Fe Fe Fe He Fe Fe ve He He He de Fe re rede He te ye ye ke He He ve 


: Wik salem ma 01970-0111 usa *ee eee HK 


Fe te He He Fe Fe Fe He Fe Ye Fe He He Ye Fe Fe ve Ye ve Ye Ye Ye Fe Fe He He Fe Ve Ye Ye He Fe Ye eo Te Fe Fee Ye Ve Fe He Fe 


. Keke HYarsec inc 


; os plus is designed to be patched into the main ($0302) 


; and chrgot ($0386) vectors. 


; features: 


c128 mode only 


; (1) allows default drive to be changed for all basic commands 


; (2) displayd drive prompt and error message 


; (3) help key displays last command 
; (4) supports indentation of text in basic lines 
* =  $0d00 sassemble in rs232 output buffer, bank 0 
ldy #802 ;set to copy 3 bytes (jmp patch) 
copy lda jump,y ;fetch a byte 
sta S038d,y scopy it 
dey snext byte 
bpl copy ;if more bytes, continue copying 
sty S3c ;(curlint1) 
lda Sfc ;was a basic program line just entered"? 
bpl skipmsg ;syes, don’t display drive prompt 
lda $90 ;check status of current device 
bmi previous ;if device not present, use previous drive 
lda Sbe ;default device no. 
devchk cmp #S08 ;is it 8 or higher"? 
bee chkmore ;no 
cmp #S1f ;is it less than 31"? 
bec outchk ;yes, it’s a valid drive no. 
chkmore tya 
bpl immed ;illegal drive was entered 
previous lda Sfe ;previous device no. 
outchk ldx S9a ;current output device no. 
cpx #504 ;is it on serial bus"? 
bec readds ;no 
tya 
bmi skipmsg ;don’t display prompt 
immed jmp S4dd9 ;back to main - execute cmd 
newemd ldy Sfd ; length of command line 
i : in | 
: dey : ;one character in string"? 
bne immed no 
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PROGRAM NAME: OS PLUS.V1.0.SRC 


(continued from previous page) 


hi 
la 
ga 
cj 
gd 
bp 
an 
ib 
bm 
pm 
Jp 
mf 
00 
nd 
ih 
nb 
ko 
an 
de 
Pj 
ji 
fa 
dl 
cb 
nk 
kg 
ee 
db 
fn 
io 
he 
le 
ie 
ig 
om 
dc 
me 
pl 
ge 
mc 
ln 
mm 
cf 
fd 
ia 
bn 
nl 
fj 
ll 
bj 
da 
la 
ef 


1530 
1540 
1550 
1560 


1570 ; 


1580 
1590 


1600 ; 


1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 


lda (S$3d),y 
sec 
sbc #839 
jmp devchk 
cmdchk bne newcmd 
noready jmp S4dba 
readds sta S01lc 
sty Sfd 
jsxr $9243 
lda #Sbc 
sta $04 
lda #879 
jsx S£980 


ldy Sfd 
bmi update 
jsr $4d2a 


update lda $01lic 
sta Sbe 
sta Sfe 


dislay cle 
adc #839 
sta drive 
jsr $9281 
.byt $91 
drive .byt $41,$3e,$20 
.byt $00 
jsr $55e5 
jsr $5598 


skipmsg jsr S4f93 
jsxr $7923 
jsr $0380 
pha: php 
bcs setmsg 

indent ldx $3d 
stx Sff 
jsr $50a0 
cle 
lda Sff 
adc S0a 
cmp $3d 
sta S3d 
beq setmsg 
ine $3d 


setmsg stx Sfc 
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;sget first character 


;change letter to number 


;check if valid - change default drive 


;check for drive change command 


;back to main - no "ready." prompt 


;set current drive 
;save .y flag 
:setup to read new dsS$ 


;set lo byte address 


;set hi byte address 


;finish setup, jsrfar $79bc - read/save dsS 


;was a drive change command issued"? 
;no 


;display: cr "ready. cr 


;fetch current drive 
;update default drive 


;update previous drive 


;change device no. to letter 
;store it 

;(bprimm) display prompt 

;"" cursor-up to overwrite "ready." 
;"a> " 

;end-of-string terminator 

;display dsS - error message 


ser 


;(inlin) input Line of text 
;save.x=txtptr($3d)=Sff save.y=txtptrt+1=sS01 
;(chrget) skip leading spaces, get lst char 
;save .a and .p 


;lst char not a number - not a program line 


:get pointer to lst digit of line number 
;save text pointer 


;(Linget)change line # to hex,rtn.x=0.y=0 


;retrieve pointer 

;add number of digits in line number 
sany spaces after line number"? 
;Ssave text pointer 

;no spaces, then continue 


;skip a space 


;set message display flag 
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PROGRAM NAME: OS PLUS.V1.0.SRC 


(continued from previous page) 


ie 
fp 
hh 
cm 
be 
ll 
ll 
dl 
ck 
cn 


jl 


ln 
of 
bb 
nj 
of 
jb 
lh 
pp 


ie. 


bh 
ca 
bk 
kj 
gi 
&& 
ae 
BJ 
gil 
&P 
bg 
be 
hg 
jd 
ik 
&P 
abe 
ea 
pm 
ca 
jp 
de 
ih 
ei 
ao 
co 
op 
nn 
cl 
dm 
dg 
ep 


em 
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2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


2310. 


2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 


findlen 


null 
keynum 


jump 
patch 


copy2 


direct 


basic2 


exit 


dey 
iny 
lda 
bne 
sty 
bpl 
ldy 
ldx 
lda 
jsr 


bes 


plp: 


bes 


jmp 


jmp 
sta 
lda 
bpl 


sta 
ldy 
lda 
sta 
dey 
bplL 
djmp 


pla: 
pla: 


cpy 
bne 
cmp 
bne 
lda 
sta 
bne 
cpy 
bne 
cmp 
bne 
cpx 
bne 
ldx 
stx 
tya 
ldy 
lda 


sta 


jmp 


.end 


(S3d),y 
findlen 
Sfd 
keynum 
#500 
#50a 
#S53d 
Sff65 
null 


pla 
cmdchk 
S4de5 


patch 
Sfb 
S7£ 


direct 


Sff03 
#502 
$4286 ,y 


S038d,y . 


copy2° 
$0386 


tay 
pha 
#Se7 
basic2 
#Sa3 
basic2 
Sbe 
S$O1l1lc 
exit 
#Se5 
exit 
#591 
exit 
#501 
exit 
Sbe 
Sba 


:pha 


#500 
Sfb 
Sf£03 
$0390 


‘set to Sff 
-search for end of command line 


:save Length of command string 

;if length < 128 chars, program key 
;String too Long so null it 

;help key numbertl 

;address of string pointer 

;program the key (pfkey) 

;if no memory,reprogram key with null 


string 
;retrieve .a and .p 


;not a basic program Line 


; back to main - enter/delete basic line 


;save .a 


ydirect mode"? 


-yes. 


sbank 14 

:set to copy 3 bytes (sta S$ff03) 
:fetch a byte 

scopy it 

er Byte 

;if more bytes, continue copying 


:chrgot 


:get.lo byte address from stack 
;sget hi byte address from stack 
;is lo byte address Se7"? 

;no | 

;is hi byte address Sa3"? 

;no 

:fetch default drive 

:set default drive for basic 7.0 
;jump always 

;is lo byte address Se5"? 

;no 

>is hi byte address $91"? 

;no 

;is device the cassette"? 

:no 

;fetch default drive 

;set default drive for basic 2.0 
;restore stack 

;restore .y 

;restore .a 

;bank 14 


;continue with chrgot 
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PROGRAM NAME: OS PLUS.V1.0.BAS: | Dr. OcCTAL’S 

| a | SHARP OPERATING ‘Trps_ 
mo 100 rem os plus v1.0 
' en 110 rem by michael gilsdorf 





kh 120 rem copyright (c) feb 92 on Tip #0001 
kj 130 rem parsec inc pob 111 salem ma Gateway & Switcher 
01970-0111 a | From:JBEE 
mg 140 : 7 ' One of'the really neat things about. gateWay 
mb 150 d=peek(186): if d<8 then d=8 | (from CMD) is the task switcher that youcan use 
cc 160 for a=3328 to 3580: read b: poke a,b: -- under Geos. This is especially handy when using — 
— e=etb: next . geoPaint to paste a image from one geoPaint to - 
| ka 170 if c<>29413 then print “error in | another OR even the same picture! | 
data statements": end. : Boot up Geos, run geoPaint, load your picture, 
- di 180 poke 190,d: poke 254,d: poke 252,255 : and hit the Escape key (saving geoPaint and the 
: | : rem initialize | : | document). Call this copy #01. Hit the Escape 
co 190 poke 770,0: poke 771,13: rem key again saving the second copy. Call this copy 
activate os plus | | a _ #02. Hit the Escape again. Now clip an area from © 
bj 200 print “os plus v1.0 activated" | geoPaint - Copy #01. The area is now saved to | 
fo 210 end : disk as a "scrap". Hit escape and enter Copy#02 
bg 220: | bap and post the scrap in a new position or over 
&j 230 data 160, 2,185,180, 13,153,141, 3 something else. This makes lining up graphics for 
£1 240 data 136, 16,247,132, 60,165,252, 16 things like disk labels a snap! Keep pasting from 
md 250 data 100,165,144, 48, 13,165,190,201 | Copy #01 to Copy #02. This trick works because 7 
gi 260 data 8,144, 4,201, 31,144, 5,152 4 Geos saves only one paint scrap to a disk, - 3 
ol 270 data 16, 11,165,254,166,154,224, 4: replacing previously saved scraps with newer ones 
ne 280 data 144, 24,152, 48, 72, 76,217, 77 | whenever you clip from a geoPaint. A note of 
ld 290 data 164,253,136,208,248,177, 61, 56 | _ caution: try not to scroll too much and close both | 
oj 300 data 233, 57, 76, 23, 13,208,241, 76 copies starting with Copy #02. — | | , 


ap 310 data. 186, 77,141, 28, 1,132,253, 32 
ef 320 data -67,146,169,188,133, 4,169,121 
oc 330 data 32,128,249,164,253, 48, 3, 32 Tip #0002 


gk 340 data 42, .77,173, 28, 1,133,190,133 _ _ Handyscanner | 
fa 350 data 254, 24,105, 57,141,107, 13, 32 -  From:J.Robbins 

ah 360 data 129,146,145, 68, 62, 32, 0, 32 — Use a flashlight over the green plastic window 

bm 370 data 229, 85, 32,152, 85, 32,147, 79 _of the Handyscanner 64 on those dark background 
jg 380 data 32, 35,121, 32,128, 3, 72, 8 | pictures with the first position set on dither, 

jp 390 data 176, 20,166, 61,134,255, 32,160 between a 200 and 250% capture, bright arrow lined 
dh 400 data 80, 24,165,255,101, 10,197, 61 | _up with the solid arrow, and contrast’ lined up 

ik 410 data 133, 61,240, 2,230, 61,134,252 with the large end of the arrow. Then the dark 

jm 420 data 136,200,177, 61,208,251, 132,253 , background pictures transfer almost exactly the 

ha 430 data 16, 2,160, 0,162, 10,169, 61 same as the Macpaints and Gifs do to geoPaint 

bi 440 data 32,101,255,176,245, 40,104,176 | . (except the color of course). He reports a blue 

ca 450 data 140, 76,229, 77. 76,183, 13,133 | filter gives the best results. After seeing some 

gp 460 data 251,165,127, 16, 17,141, 3,255 . of his awesome geoPaints (digital captures) we 

ne 470 data 160, 2,185,134, 66,153,141, 3 | : agree! 


be 480 data 136, 16,247, 76,134, 3,104,168 | 
‘bl 490 data 104, 72,192,231,208, 11,201,163 pete | ; ae , | 


ce 500 data 208, -7,165,190,141, 28, 1,208 = © Tip #0003 _— Fes | 
np 510 data. 16,198, 889,208, 12,201,145,208 © ~~ C-1571 

df 520 data 8,224, 1,208, 4,266,190,134  From:Mike Minnig | 
mk 530 data 186,152, 72,160, 0,165,251, 142 re If you have a C-128D and shes diacarvesy you : 





1i 540.data 3,255, 76,446, a ae en ae: must have been frustrated already by programs that 
vf : = . - will not boot from any other device number except 
#8 or by Geos that will not recognize more than 
three disk drives or performs a swap with one of 
(companied on page 25) 
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INTERNAL FUNCTION RAM 
a Richard Curcio — 


LF.R. REVISITED V2.1 

My Internal Function Ram project as it 
appeared in TC128 #29 has problems. This project 
allowed the C128 to have a Static Ram in the empty 
sdcket reserved for a function ROM or Eprom. The 
circuit included battery-backup so the Static Ram __ 
could retain its contents while the computer was 
turned off. 


I offer no excuses for not detecting the 
problems sooner. Instead, I offer a fixed and 
(serendipitously) more versatile design, which 
will, if you already have a ROM in the empty © 
socket, allow selection of it or the Static Ram, © 
via a switch or software. The program for the 
original project has been revised as well. 


I apologize for any frustrations the earlier — 
project may have caused. 


OBSTACLES 

A detailed recounting of how the oeoael 
design was supposed to work and why I thought that — 
all was well -- in other words, what had 
overlooked -- would take up too much space. The 
older circuit won’t harm the C128 and will perform 
as described -- with limitations. If I took the 
time to explain those limitations, I’m sure most 
readers would agree that they’re Pepin So 
let’s Just get right to the new circuit. 


The Bank 4-7 saainieanione of the C128 select. 

_ internal function ROM. In these standard banks a 
ROM or Eprom in socket U36 occupies $8000 to Sffff 
with a 4K gap at $d000 for I/O. You can’t.just | 
plug a Static Ram (Sram) into the empty socket | 
because 1) R/W is not present on the function ROM 
socket and 2) when the Programmed Logic Array 
(PLA) detects a WRite to what is supposed to be a 
ROM location, the function ROM enable (called 
/FROM in the P.R.G. schematic,) "goes away” and 
system Ram is instead enabled and written. Since 

the PLA won’t permit writing to a ROM or anything 
else in the U36 socket, the new design bypasses __ 
the PLA. This is not as pane as one ent 

expect. 


Two signals from the MMU called MSO and MS1 | 
tell the PLA to enable system ROM, external or — 
internal ROM, or system Ram. When MSO =0 and MS1 


=] ise ROM is selected. The PLA sounder a 
number of other signals in determining which 


_ enable to generate. When R/W is low, the PLA | 


disregards the state of MSO/1. The new circuitry — 
removes R/W from the decision and substitutes the 
"1" period of the two-speed system clock, which is 
when the processor has control of the address and 
data busses. The result is a nice, clean enable of 
the proper duration. 


THE CIRCUIT 

Figure 1 shows the new design i in a mix of 
mechanical and schematic representation. The 
static Ram is inserted in the 128’s empty ROM 
socket with its pins 1,20, 27 and 28 bent out. A 
74HC138 decoder receives MSO, MS1 and the 2MHz_ 
clock on its inputs and its Y3 output enables the 
Sram. This decoder MUST be an ’HC part if 


 battery-backup is included. The Sram and the 
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"HC138 are powered by the computer’s +5 volts OR 
the battery. If you choose to omit the battery and 


diodes, insert the Sram’s pin 28 into the socket 
and connect pin 16 of the 7HC138 to +5 volts. _ 


The Sram’s Write Enable input /WE connects to" 
FR/W, a Read/Write internal to the 128. (It's - 
called R/WA in the SAMs schematics.) It does not: 
appear on the expansion connector, so an REU or 
other external device cannot pull it low and alter 
the Sram.(An REU-initiated WRite to what is 
supposed to be a ROM bank will simply © 
"fall-through" to underlying system Ram, leaving 
the Sram untouched.) In the low-profile 128, FR/W_ 
is available at pin 1 of U57, inside the video 
box, which is quite close.to the empty ROM socket. 
In the 128D, this signal is at pin 3 of U61, near 
the left side of the main circuit board and also 
close to the empty socket. 


The nearest point to get the 2MHz clock on the 
low-profile 128 is at pin 4 of U22, the 80 column 
controller, which is also inside the video box: On 
the ’D, different versions of this chip have 2MHz 
on different pins, For certainty, obtain this 


~ signal at pin 1 of the 8502 microprocessor, U6. 


MSO and MS1 are at pins 18 and 17 respectively of 
the PLA, U11, which is located at center front of 
both the low-profile and ’D. (Although they are 
rare, there are ’Ds in existence that use a | 
low-profile mother-board. For a positive 


determination, count the number of dynamic Rams at | 


the front left of the board. Sixteen 16-pin ICs — 
indicates a low-profile board, while four sid as | 
chips means you have a true ’D.) 4 
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Because the pin-out of the Sram is slightly 


different from that of a ROM or Eprom, pin 1 must 


be bent out and connected to address bit A14. On 
my flat 128 I found A14 at the feed-through 
immediately to the right of the "2" ofthe 
identifier "R32" near U32 and U33. On the ’D, Al4 


is at pin 27 of ROMs U32 and U34 or pin 18 of U42 - 


(741.8244). 


The 32K x8 static Ram could be a 62256, 43256 
or 58256. For maximum battery life it should be a 
low-power device (-L or -LP suffix,) having a 
"standby" current consumption of 100 microAmps. 
Regular power Srams have a standby current of 2 
milliAmps, which is still pretty miniscule. 


_ Linstalled the 7HC138 in my low-profile 128 
by sticking it to the main board upside-down using 
double-stick foam tape. Connections were a by 
wire wrapping directly to the pins. Lithium "co 
batteries are available with solder-tabs, and 
_ these can have wires soldered to them. A holder 
for tab-less coin batteries canbe constructed 
with two-rectangular pieces of un-etched printed | 
circuit board; solder wires to the bare copper, 
put the battery in between the two pieces and hold 
together with rubber bands and wrap the sandwich 
with paper and more rubber bands. (Of course the 
polarity of the battery is important, but the 
diodes will prevent reversed polarity from 


damaging the Sram, ’HC138 or the computer itself.) 


This can then be tucked behind the video box or 

someplace. where it won’t flop around. In the ’D, 
_. there’s enough room for a holder for two AA cells. 

These won’t last as long as lithium, but they _ 

should last their shelf life -- at least a few 

years. 


Note that the Sram.in the U36 socket still 
receives the PLA-generated /FROM on its Output 
Enable ( /OE) pin. Normally the PLA enables each 
ROM via /OE. A write will therefore disable the 
Sram output and that’s fine; for the Sram, /OE i is 
"don’t care" when /WE =0. (Certain other memory 
ICs require that /OE =1 when /WE =0.) 
OPTIONS — 

_ When the optional Write. Protect switch within 
the dotted lines in figure. 1 is open, FR/W can’t 
reach the Sram. Use this td prevent accidental © 


writes to the Sram or to fully emulate’ an in Eprom. . : 


The 10k resistor on ‘the HC138 B input 
insures that the proper combination of inputs 
causes output Y3 to go low, selecting the Sram. If 
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’B is made low by grounding it with the optional — 
Select switch, then another Sram or an Eprom could 


be selected by connecting its /CS to Y1 (pin 12). 


One would think that, since the 128 has only one « 
empty socket, this idea is mere theory. There are 


ways to obtain the room for a second 28-pin IC, 


but different methods are needed for the 
low-profile and 128D. These will covered later on., 


TESTING /SOFTWARE | 7 

After installing the circuit, use the Machine ss 
Language Monitor "m" command to display the first _ 
page of the IFR: m 48000 <return>. You should see © 
random values. Cursor up to the m command. and hit 


pact If any of the previously displayed values — 


e, bank 4 is empty -- the Sram isn’t getting 
ara Turn off your computer and find your 


mistake. If the random bytes remain constant, fill 


that first page with some value, say $55 or $aa: | 
f 48000 = 55 


Now use the m saitand to confirm that the fill 
was successful. If it was, turn off the computer, — 
wait a few seconds, then power up and confirm that 
the battery-backed Sram retained the fill value. 


Before your Internal Function Ram can be used : 
from Basic, it must be initialized. Use the mlm ~ 
Transfer command to copy the routines in the last 


_ , page of system ROM to the same locations in Bank 


4: 





t FEROS £44 46105 


Cursor up and change the "t" to a "c" 
(Compare) and hit return. The mlm should print 
nothing, indicating that all the locations match. 
Now transfer the system vectors to the last six 
bytes of Bank 4: | 


tifa AEE fff 


Ignore the "2" that appears upon completion. 
You can now safely access your IFR with Peek, — 
Poké; BLOAD, BSAVE and SYS. (The mlm safely 
accessed bank 4 before the initialization because. 
it disables interrupts during."m","f"',"t"and = - 
"c".) Bear in mind, however, Poke and BLOAD. will 


| | aes alter underlying system Ram (Ram 0 when Bank 


4). Note also that the standard IFR Banks 4-7-and 


12 include I/O in the > $d000-dfif range. | 


Prograst lis the ince for a Mover which will * 
transfer data to the IFR wo alcnng the 
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system Ram under it. It is designed to reside and 
execute in the IFR. The ml can be relocated to a, 
different start address by changing the variable . 
SA in line 200. SA must be between 32768 and 
48924. Access the routine with | | / 


bank 12: sys sa, host bank, direction,,, feat 
start, host end, ifr start 


You MUST use Bank 12, which includes the 
Kernal and I/O. The host bank is system memory in 
the standard Bank configurations; 0-3, 14 and 15. 
Banks 4-13 are not allowed. This restriction can 
be bypassed. Direction is zero to move data TO 
internal function Ram and greater than zero to 
recall data FROM that Ram. The three commas must 
be present. Host start and end are self 
explanatory, while IFR start must be at least 
32768. No address can be greater than 65279, as 
that would affect the MMU registers at $ff00-$ff04 
and the important routines and vectors in page 
$ff. As the routine moves data, it checks its _ 
pointers and will halt the move and set the Carry 
bit if either the source or destination reaches 
page $ff. Carry is also set if either pointer 
"wraps" to zero page -- which theoretically can’t 
happen, but one never knows. Use the RREG function 
to test the Carry from Basic. The routine does not 
detect if an IFR destination will write over the 
Mover itself. 


The Mover calls the system INDSTA and INDFET 
routines at their Ram 0 locations, instead of 
through the Kernal jump table. Calling these 
routines via the jump table is time consuming, 
because the bank number is converted to a 
configuration value for each byte. To speed things 
up, the Mover performs the host bank to 
configuration conversion just once. Also, to 
access $d000-dfff of the Sram a modified Bank 4 
must be used because the standard Banks include 
I/O in that range. 


Because writing to the Sram also writes system 
_ Ram, the Mover performs two loads and stores for 
each byte moved to the IFR. First the byte in Ram 
0 "under" the IFR destination is read and stored 
on the stack. Then the host source byte is written 
to the IFR, changing Ram 0 in the process. The- 
byte on the stack is then restored to Ram 0. In 
this way, we do not lose the use of the underlying 
system Ram. This is why Banks 4-13 are not allowed 
as "host." If the "from" portion of the routine 
were to move data to the IFR as host, the byte 
under the IFR destination would be lost. The "to" 


operation would work properly, but this is a 

"dumb" mover; if the source and destination are in 
the same bank, and they overlap, the move becomes 
a fill. If you really need to move data around 

inside the IFR, and don’t care about the 
under-bytes, you may use Banks 4-13 as host by 
calling the routine at sa+27. 


The "to" portion of the Mover assumes that the 
MMU Pre-Configuration Register at $d501 (PCRA) 
contains its default value, selecting the Bank 0 
configuration when any value is stored in the 
corresponding Load Configuration Register at $ff01 


(LCRA). 


I must emphasize that writing to Bank 4 or the 
other internal function ROM configurations enables 
the Static Ram and system Ram simultaneously, a 


very different situation than what normally occurs 


when attempting to write to ROM. Any routines you 
place in your IFR should not use the short-cut 
method of writing to an internal function ROM 
region to accomplish a write of system Ram that is 
not at the moment visible. Use INDSTA. However, if 
the optional Write Protect switch is installed and 
opened, then the Sram is as unwriteable asa ROM. 
or Eprom. 


_128D PLUG-IN BOARD 


In a 128D, to have a choice of Sram or Eprom 
in Bank 4, a board can be constructed to plug into 
the empty ROM socket. As shown in figure 2, socket 
1 is intended to hold an Eprom. This should be a 
wire-wrap socket with "2-level" length pins. These 
are long enough to allow the plug-in board to — 
clear the main board components that will be under 
it; 3-level length pins are acceptable, but longer 
than necessary and you may have trouble keeping 
them properly aligned. The perforated board should 
have "pad-per-hole" copper plating so that the 
socket can be firmly soldered to it. Pin 20 of 


socket 1 is cut close to the board so it does not © 


make contact with the corresponding receptacle of 
the main board U36 socket. The two other sockets — 
could be.solder "tail" or wire-wrap with the pins 

cut as short as possible 


Pins 28 and 1 of socket 1 bring +5 volts to 
the plug-in board, while pin 14 supplies ground. 
Each pin of socket 1 is wired to the same pin of 
socket 2 EXCEPT for pins 1, 20, 27 and 28. Pin 27 
of socket 1 connects to pin 1 of socket 2 (address 
bit A14). Pin 27 of socket 2 is the Sram Write 
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Enable /WE and it gets wired to FR/W, either 
directly or through the optional switch. Both | 
28-pin sockets continue to receive /FROM at their 
_/OE pins 22. Pin 20 of each socket gets wired to 
the specified "HC138 outputs. All other signals 
from the main board can connect directly to the 
plug-in or, better yet, through connectors and 
pins so that the whole assembly can be removed 
without unsoldering. There’s a large hole in the 
front of the 128D chassis which will permit wires 
from the plug-in to reach any switches you mount 
on the front panel. Other, smaller holes can be 
used to secure a double AA battery holder oats 
twist ties. 


To have a second Sram instead of an Eprom, the 
simplest method would be to plug it into socket 1__ 
- with its pins 1, 22, 27 and 28 bent out and wired 
as shown in figure 1, As illustrated in figure 2, _ 
the plug-in is somewhat roomier than absolutely 
necessary, but about as roomy as it ought to get. 


LOW-PROFILE STRATEGY 
To gain another 28-pin socket in the - 

low-profile 128 you need an Eprom programmer so 

that the two 16K ROMs holding Basic and the 

Machine Language Monitor can be combined ato one 

27256 32K Eprom. One ROM, U33, holds the Basic 
interpreter from $4000 to $7fff (call it baslo). 

‘Fhe other ROM, U34, holds the rest of Basic and 
the MLM (bashi, $8000 to $bfff). The original ROMs 
can be copied without removing them from the 
system board by saving their contents to disk: 


 bsave "baslo’, b15, p16384 to p32768 (end +1) 
__ bsave "bashi”, b15, p32768 to p49152 — 


Burn baslo into the lower 16K (0-$3fff) of a 
200 nanoSecond 27256 and bashi into the upper 16K 
_ ($4000-$7fff). It’s a good idea to label each 
_ original ROM with the socket number it came from, 
so they can be re-installed correctly, if needed. 
(If your Eprommer software works only in C64 mode, 
use the 128 mim to transfer bashi to $4000-7fff in 


Ram 0, then BSAVE "BASHI", BO, P16384 TO P32768. 


In C64 mode load and burn each file la )- 


Figure 3 shows how 1 installed this Basic 
Eprom in my flat 128. Diode logic enables the - 


Eprom’s /OE when baslo (labeled /RON2 i in the ee 
P.R.G. schematic) OR bashi (/ROM3) go low. These | 


‘signals are obtained at feed-through holes near | 
the sockets. (Note that the bashi feed-through is 
_ partially covered by the U34 socket.) 
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Additionally, baslo pulls the Eprom’s A14 low, 
selecting the lower 16K. The Sram can then be 
installed in the U34 socket, and a function ROM or 
ready programmed Eprom (if I ever get one,) 


i plugged into U36 with its pin 20 lifted and wired 
to pin 14 of the 7HC138. I could eeteee install a 


second Sram. 


‘The Eprom could also = based with baslo in 
the UPPER 16K, and bashi in the lower, duplicating 
the arrangement in 128D Roms. In this case, the 
feed-through connections would be reversed, so 
that bashi pulls pin 27 low. Incidentally, all 128 


system ROMs have large areas containing $ff; that — 


is, unused. Once a ROM has been copied to Eprom, 

the ambitious might consider burning their own 

routines into these unused areas. Note that the 

128 Kernal ROM must be removed from the computer _ 
to copy it because 4K of Z80 start-up code is 

"hidden" while the 128 is in 8502 native mode. 

You'll need to use another 128 or 64. | 


SOFT SELECT. | 

Since a logic 0 or lon input B ofthe "HC138 
allows a choice of pins 12 or 14 as the device 
enable, this can be accomplished via software, 
instead of a switch. One possibility is to use a 
Cassette control line. CASS SENSE, which detects 
when play/record on the Datasette is pressed, is 
normally an input. It defaults to logiclon 
reset. Connect this to pin 2 of the "HC138 and, 
when low, it will select whatever is connected to 


- pin 14 (Y1). The first time you want to change the ey 


state of CASS SENSE you'll have to change bit 4 of | 
the data direction register at location 0: Poke 0, 


_ Peek(0) OR 16 (or the ml equivalent,) does this 


without changing the other ddr bits. Thereafter, a 

0 on bit 4 of location 1 will select pin 14 of the 
°HC138 as the active output, while a 1 will select . 
pin 12. Use Poke 1, Peek(1) AND 239 for a zero bit 


_ 4, and Poke 1, Peek(1) OR 16 for a 1. (Note that’ 


some software, after manipulating location 1, may 


: - not return it to the state in which it was found. 


Be wary of programs that use custom characters in 
40 columns or tinker with the VIC’s Color Memory 
blocks. All the system routines that alter 

location 1 do so in a "considerate" manner. ) 


CASS SENSE is available at pin 26 of the 9502 
(U6) or finger 6 of the cassette connector. If 


CASS SENSE =1 selects Sram as the default Internal 


Function device, you could write an auto-starting 


"program that looks for a certain keypress on start 
‘up to keep the Sram or select function ROM, if 
any. All of this assumes you will not be using 
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cassette storage. 


Note that ground on input C of the "HC138 
selects pins 12 or 14 as active outputs. 
Connecting C.instead to another control line (CASS 
WRT?) would allow pins 10 and 7 to select two more 
Internal Function devices for a total of four! 
This, I think, might be taking things a bit too 
far, especially in the cramped quarters of the 
flat 128. | 7 


PROGRAM NAME: IFR.MOVER.BAS 


hn 
di 
cd 
co 
mg 
om 
nk 
ek 


na 


pe 


ph. 


le 
al 
mb 
ck 
jd 
hg 
fd 
kg 
£1 
ek 
kf 
md 
kj 
mc 
dp 
mm 
cc 
hi 
-@0 
de 
bl 
ng 
ca 
jl 
po 
lm 
of 
4G 
dd 
ah 
bp 


co 
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100 
110 
120 
130 


rem written by richard curcio 
rem copyright (c) 1992 

po box 111. 
salem ma 01970-0111 usa 


rem parsec inc 


rem 


140 : 


150. 


160 
170 
180 
190 
200 
210 
220 
230 


rem program name ’ifr.mover.bas" 

*** initialize bank 4 *** 
bank15:poke53274,0:rem irqs off 
fori=65285t065348 :rem f£f£05-f££44 
bank15:x=peek (i) :bank4:pokei,x:next 
fori=65530t065535 :rem fffa-ffff 
bank15:x=peek(i):bank4:pokei,x:next 
bank15:poke53274,241:rem irqs on 


rem 


240 : 


250 
260 
270 
280 


290 


300 
310 
320 
330 
340 
350 
360 


370 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


510 


520 


‘data 160, 40,133, 


rem *** install ifr mover *** 

rem !!! destroys ram 0 bytes !!! 
sa=34000:rem relocating 
ifsa<48923andsa>32768then300 
print"bad address!":end 

ck=0 : bank12 
fori=0to226: readd: pokesati,d:ck=cktd 
next 

ifck=29213then350 

print"error in data!":end 

X¥sat192: gosub420 | 
pokesat38,1:pokesat39,h 
X=sat203:gosub420 . 
pokesat+166,1:pokesat167,h 

print"ifr mover installed in” 
print"bank 12,"sa"to"sat226 

end 

h=int(x/256) :l=x-h*256: return 

data 201, 16,144, 15,169, 15,162,125 
2,134, 3,132, 4 
data 76,227, 2,201, 14,176 4,201 
data 4,176,233,134,207,170, 32,107 
data 255,133,206,162, 11,189,192, 19 
data 157, 16, 1,202, 16,247, 32, 16 
data 1,132,172,133,173,..32, 16, 1 
data 201,255,240,200, 132,174, 133,175 
data 32,183,238,176,191, 32, 16, 1 
data 201,255,240, 184,201,128,144,180 
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el 530 data 132,195,133,196,162,195,160,172 
hd 540 data 165,207,240, 65,142,170, 2,140 
bo 550 data 185, 2,160, 0,169,255,197,173 
nb 560 data 240, 41,197,196,240, 37,162, 23 
an 570 data 32,162, 2,166,206, 32,175. 2 
ph 580 data 56,165,172,229,174,165,173,229 
pb 590 data 175,240, 18,230,172,208, 4,230 
bl 600 data 173,240, 8,230,195,208, 8,230 
pg 610 data 196,208, 4, 56, 96, 24, 96,165 
ji 620 data 207,208,201,240, 19,140,170, 2 
jm 630 data 142,185, 2,162, 23,189,203, 19 
lg 640 data 157, 16, 1,202, 16,247,160, 0 
kc 650 data 169,255,197,173,240,221,197,196 
kg 660 data 240,217, 32, 16, 1, 56,176,185 
ek 670 data 32,221, 2, 32, 15,136,162, 6 
km 680 data 76,201, 2,141, 1,255,177,195 
fm 690 data 72,166,206, 32,162, 2,162, 23 
fh 700 data 32,175, 2,104,145,195,162, 6. 
jo 710 data 76,201, 2 
PROGRAM NAME: IFR.SRC 
db 1000 sys4000 
da 1010 ; - 
md 1020 :written by richard curcio 
ed 1030 ;copyright (c) 1992 
no 1040 sparsec inc po box 111 
fk 1050 ;salem ma 01970-0111 usa 
gd 1060 ; aa 
bp 1070 ;program name ’ifr.src’ 
hh 1080 ; | 
ib 1090 ; 
ag 1100 ;power assembler (buddy128) 
j£ 1110 ; 
km 1120 *= $84d0 
kj 1130 ; 
be 1140 ;address = 34000 decimal 
In 1150 ; | 
hk 1160 .bank 12 
nb 1170 ; 
fg 1180 ;some assemblers might not allow a 
dh 1190 ;rom bank. if so, assemble to ram 0 
ad 1200 ;and use mlm to transfer to bank 4 
pj 1210 ; . _ 
jd 1220 .mem 
an 1230 ; 
gm 1240 ;move to/from internal function ram 
gp 1250 ;:in bank4 (normally eprom or rom) 
cl 1260 : 7 | 
ff 1270 ;.a=bank (0-3,14,15), .x=0=to 
ea 1280 - 
pe 1290 setup cmp #810 shost bank <16 
gc 1300 : bec xcp ;yes 
fo 1310 ; | 
oe 1320 ;call basic illegal quantity 
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af 


jf 
lc 
hl 
oi 
pn 
im 


en 
Cj 
cg 
ml 
ob 


ne 


ce 


cg 
bj 


op 
ph 
ob 
bj 


he 
ib 
bn 
be 
oi 
Ps& 
jd 
np 
ja 


le 
od 


mo 
do 
kn 


hi 
oc 
gc 
gb 
lf 
fe 
jb 
gi 
ae 
dj 


in 


1330 ;using jmpfar 


1340 ; 

1350 illqty lda #S0f -bank15 

1360 : ldx #87d ;addr hi 

1370 : ldy #828 ;addr lo 

1380 : sta $02 

1390 : stx S03 

1400 : sty $04 

1410 : jmp $02e3 ;jmpfar 

1420 ; 

1430 xcp cmp #S0e 

1440 : bcs ok ;banks 4-13 
1450 : cmp #804 snot allowed 
1460 : bcs illqty 

1470 ok stx Scf ;save direction 
1480 : tax 

1490 : jsx Sff6b ;get config. 
1500 : sta Sce ;store it 

1510 

1520 ;copy code to low end of stack 
1530 ; 

1540 : ldx #S0b 

1550 csl lda stackl,x 

1560 : sta S0110,x 

1570 : dex 

1580 : bpl csl 

1590 : jsr $0110 ;call it 

1600 ; 

1610 : sty Sac -host start lo 
1620 : sta Sad -host start hi 
1630 : jsxr $0110 ;get host end 
1640 : cmp #Sff 

1650 : beq illqty ;page ff no good 
1660 : sty Sae 

1670 : sta Saf 

1680 : jsr Seeb7 ;start < end 
1690 : bcs illqty 

1700 : jsx $0110 ;get ifr start 
1710 : cmp #Sff 

1720 : beq illqty 

1730 : cmp #580 

1740 : bcc illqty ;<S8000 n.g. 
1750 mlalt sty Sc3 

1760 : sta Sc4 

1770 : ldx #8c3 

1780 : ldy #Sac 

1790 : lda Scf ;direction flag 
1800 : beq movto 

1810 

1820 ;move data from int. func. ram 


1830 ; 


1840 : stx SO2aa ;indfet pointer 
1850 : sty S02b9 :indsta pointer 
1860 : ldy #$00 
1870 movfr lda #Sff 


op 
jb 


kf 
fm 
bl 
fn 
fd 
gk 
de 
ao 
if 
kn 


kd 
nf 
nh 
ob 
ch 
jf 
jm 
kj 
bm 
gm 
he 
ia 
ip 
bh 
pl 
ji 


hl 
aj 


ii 


RB og 


ga 
mo 
Kj 
ob 
hh 
dp 
gi 
md 
ld 
ff 


&J 
ig 
ei 
jk 
ce 
ho 


1880 : 
1890 : 


1900 


1910 : 


1920 
1930 


1940 : 


1950 
1960 
1970 


1980 : 
1990 : 


2000 
2010 
2020 
2030 


2040 : 


2050 
2060 
2070 


2080 : 


20390 
2100 


2110 : 


2120 
2130 
2140 
2150 


2160 : 


2170 


2180 


2190 
2200 
2210 
2220 
2230 


2240 : 


2250 
2260 
2270 
2280 


2290 : 


2300 


2310 : 


2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 


2410 : 


cmp Sad 
beg fferr 
cmp Sc4 
beq fferr 
ldx #517 
jsr S02a2 
ldx Sce 
jsr SO2af 
sec 

cbump lda Sac 
sbc Sae 
lda Sad 
sbc Saf 
beq exit 
inc Sac 
bne zzzz 
inc Sad 
beq fferr 
zzzz ine Sc3 
bne dtest 
inc Sc4 
bne dtest 
fferr sec 

rts 

exit cle 


rts 
dtest lda Scf 


_ beq mov2 


bne movfr : 


;page Sff n.g. 


;bank4, no i/o 
;do indfet 

;get dest cnfg 
;do indsta 
;compare Sac/ad 


-to Sae/af 


;reached end 


;increment pntr 


:Sad rolled over 


;rolled over 


;complete move 


;direction 


;smove data to int. func. ram, 


;preserving underlying data, 


;byte by byte 
movto sty S0O2aa 
stx S02b9 
ldx #817 


;indfet pointer 
;indsta 


;copy to stack 


cs2 lda stack2,x 


sta S0110,x 


dex 
bpl cs2 


ldy #500 
mov2 lda #Sff 
cmp Sad 
beq fferr 
cmp Sc4 
beq fferr 


jsr $0110 


sec 


bcs cbump 


;page Sff n.g. 


;stack code 
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li 2420 ; 

ao 2430 ;these routines are moved to the 

ci 2440 ;low end of the stack as needed. 

ng 2450 ; 

kd 2460 ;the first sets bank 15, calls 

en 2470 ;basic expression evaluator, sets 
og 2480 ;bank 12 and returns 


po 2490 ; 

ph 2500 stacki jsr S02dd ;part of jsrfar 
oc 2510 : jsx S880f ;.y=lo, .a=hi 
fb 2520 : ldx #506 ;bank 12 

cl 2530 : jmp S02c9 

da 2540 ; 


mm 2550 ;this code moves data from host 
fn 2560 ;to int. funct. ram, preserving 
ca 2570 ;ram 0 bytes 


£3 2580 ; 

hf 2590 stack2 sta Sff01 ;lcra=ram0 

hg 2600 : lda (Sc3),y;get byte 

da 2610 : pha ;save it 

fg 2620 : ldx Sce shost config. 
ah 2630 : jsr S02a2 ;indfet 

cp 2640 : ldx #517 ;bank4, no i/o 
dg 2650 : jsr SO2Zaf ;indsta 

nl 2660 : pla ;restore byte 
me 2670 : sta (Sc3),y;to ram 0 

pe 2680 : ldx #506 sbank 12 

gc 2690 : jmp SO02c9 ;& rts 


me 2700 .end 


|_| 
a 
a 
a 
ae 
com fe 
Xo be 
we he 
aS i 
mow oC 
a 
B 
a 
| 


battery Resistor = 1/4 Watt 
Diodes = IN914 or IN4148 
*% = See text 


Figure 1 


Internal Function RAM 
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Figure 2 
Plug-in board for 128D. 
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pin assignments 
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SERVICING THE C-128 KEYBOARD 
by Dave Farquhar 


DISCLAIMER 

This modification will render any warranties 
on your equipment null and void. The Author and 
Publisher do not assume any liability for 
Purchaser’s implementation of these instructions. 
All information is believed to be accurate. 


SERVICING THE C-128 KEYBOARD 

Traditionally, Commodore microcomputers have 
been extremely reliable. The C-128 is no 
exception. However, nearly every computer, 
Commodore or otherwise, eventually develops 
problems with its keyboard, because it is exposed 
to the elements much more than any other 
component. 


Such failures are usually caused by dust 
accumulation on the printed board, a film 
developing on the conductive rubber pads of one or 
more keys, or a combination of the two. 


When you fall victim to this problem, you 
have several options. You could take the machine 
to the local service center, if there is one, for 
repair. But, this can be time-consuming and 
expensive. You could replace the keyboard, but 
C-128 keyboards can cost you $70 or more, if you 
can find one. This price is outrageous when you 
consider that Radio Shack sold surplus C-16 
keyboards for years at $4.95 a pop. The last 
option is to service the keyboard yourself. 

This is not as monumental a task as it first 
seems. Usually, it can be done in 20 minutes or 
less, at a very low cost using household items. 


You will need the following materials: 


Flathead Screwdriver 

3/32" or 2.4 mm Phillips screwdriver 
3/16" or 3 mm hex socket 

3.8 mm Phillips screwdriver 
Soldering iron 

3 containers 

Cotton swab 

Isopropanol or Rubbing Alcohol 
Pencil Eraser 


If you cannot match the screwdriver or socket 


sizes exactly, don’t worry about it, the sizes are 
approximate. Also, if you do not have a Phillips 
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screwdriver that fits, a flathead will do, but be 
very careful not to strip the screw’s head. 


It is best to read these instructions at least 
once before attempting this project, and it is 
probably best not to undertake it until failure 
arises. This is not a difficult project, but I 
feel that the old adage "If it ain’t broke, don’t 
fix it" applies here. 


This project should be undertaken on a 
relatively dark surface, such as a dark table 
cloth or bedsheet, so as to make it harder to lose 
the screws. This is because sheet metal screws 
are tough to find on a light surface because the 
screws themselves are light in color. 


The first and most difficult step is actually 
opening the keyboard of the flat C-128. First, 
unplug the power supply from the wall outlet. 
Next, unplug the power supply from the computer. 
Remove the screws on the bottom of the machine and 
put them in one of the containers for retrieval. 
Then, insert the flathead screwdriver near the 
place where the seam angles. Gently pry out on 
the lower half of the case, while simultaneously 
prying in on the top half. The case should then 
separate fairly easily. 


The keyboard is bolted to the top half of the 
case, and attached to the motherboard via a 
grounding strap and a"D" connector. Unscrew the 
grounding strap, and gently unplug the keyboard 
with a rocking, upward motion, being extremely 
careful not to bend or break the pins. Set the 
lower half of the case aside. 


Before proceeding further, it is a good idea 
to now plug in the soldering iron, so it will be 
ready when you need it. 


Next, using the hex socket, unbolt the 
keyboard from the top half of the case, being sure 
to keep track of the bolts and their plastic 
washers. Set aside the top half of the case. You 
may wish to use a socket wrench for this, but I 
find it just as easy to grasp the socket between 
two fingers and turn it that way. 


There are several methods to the actual 
cleaning, presented below. 


The slowest but most economical and most 
thorough method involves a complete disassembly. 
Gently remove the many tiny screws on the lower 
surface of the keyboard, being extremely careful 
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not to lose them. Take your time, as the screws 
are very easy to strip. 


You will notice that 3 keys on the board have 
soldered connections: shift lock, caps lock, and 
40/80 display. You will need to de-solder these 

_before you can disassemble the keyboard any 

further. If you are uneasy about using a 
soldering iron, you could clip these connections 
with wire cutters, but you will lose use of those 
3 keys. The desoldering process is simple: hold 
the flathead screwdriver beneath the wire, touch 
the soldering iron to the connection, and pry up 
with the screwdriver as soon as the solder melts. 
After all 6 connections have been detached, the 
keyboard easily lifts away from the printed board. 


Examine the printed board, especially the 
areas beneath whatever keys have been 
malfunctioning. Clean any offending areas with a 
cotton swab soaked with alcohol. Next, examine 
the rubber pads of the keyboard. A like-new pad 
will have a slightly dull finish. If the computer 
has been used in the vicinity of smokers, 
humidifiers, or fireplaces, they may have 
developed a nonconducting film on them. Clean any 
offending pads with a pencil eraser (do not do 
this to all of the pads, as it would be time- 
consuming and would expose them to unnecessary 
wear). Personally, I like the Pentel "Clic" 
erasers, available in many college book stores, 
because they are very thorough yet less abrasive 
than most erasers, but any eraser should do. 
Simply rub the eraser on each pad until its 
surface is dull. 


A second, less ambitious method simply 
involves running the entire keyboard under hot 
water for a few minutes and blow-drying it. This 
will work, but may not eliminate the film on the 
rubber pads. Also, if your community has 
particularly hard water, you could be subjecting 
your keyboard to excess mineral build-up, although 
‘probably not enough to cause serious problems. Be 
sure the keyboard is completely dry before 
reassembly. 


Another method simply requires soaking the 
entire keyboard in an alcohol bath. This 
procedure is thorough and faster drying than 
water, but the alcohol could wash off the key 
designations, or possibly damage the plastic. It 
also may not be enough to remove film from the 
contacts. 
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Re-assembly is relatively simple: just reverse 
the disassembly process. 


The final result of this project: a like-new 
keyboard, money saved, and the satisfaction of 
having done the job yourself. The cost was 
negligible as well: just the price of this 
magazine, the cost of the materials used, and your 
time. Better deals are few and far between. 


A few additional procedures will be mentioned 
for people with well used and worn keyboards. 


Before you close up your C-128 you can use a 
good keycap plunger for a "dead" or "flat" one. 


Since most people hardly use the shift/lock, Q, X, 
or tab keys on a regular basis these are prime keys 
to use to revive "flat" or "dead" ones. You could 
also use the keys from the numerical keypad or from 
the top row of number keys. 


If your springs are weak you can always use the 
springs from the C-16 keyboard mentioned earlier in 
the article. 


Though C-16 keyboards are not even close to a 
match you can still use some of the parts. If you 
cut the springs for the C-16 keycaps down to the 
proper height (not an easy job) and carefully fit 
them under the caps of the C-128 keyboard, they do 
provide good enough bounce. The C-16 springs are 
especially good for the F-Keys and other heavily 
used keys. 


One caution though, use care when removing the 
keycaps because it is easy enough to damage the 
keycap assembly. Since these seli for $8 a key 
(a unit) a bit of caution and a light hand 
is advised. 


Dave Farquhar: This project is dedicated to 
the memory of the late Norbert McGuire, who made 
this entire project possible about 2 years ago by 
loaning the author equipment and instructing him 
in its use, changing him from an unenlightened 
goof to an enlightened one. Thanks, I owe you 
one. 
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TURBO CHARGING CP/M WITH 
"SG TooLs PROGRAMMER’ 's Too. Box" 
by Steve Goldsmith 


Part 1 of 3 - Updated: 03/31/92 7 


INTRODUCT ION | 

How would you like to have 80 column color 
windows that pop up in a flash, drop down menus, 
page flipping, full access to all the C128’s1/O 
chips, and more in CP/M mode? Just imagine all _ 
the applications you could create if you had a— 
programmer’s tool box customized for the C128 in 
‘CP/M mode. Now you don’t have to imagine because 
we are going to build our own CP/M tool box with 
Turbo Pascal! I have used SG Tools to create a 80 
column, color, windowing application, a VDC 
640X200: PCX file viewer, and more in CP/M! 


OVERVIEW — 

This series of atticles i is not intended to be __ 
a tutorial of Pascal. If you have not used 
~ Pascal, but are proficient in Basic or structured 
Basic I recommend "Turbo Pascal for Basic © 
programmers" from Que books. Pascal ig easy to 
learn because it was designed as a teaching — 
language like Basic and there are many good books — 
on Pascal programming. You can also port the tool 
box modules to Mac, Rmac, Basic, C, or other 
Pascal compilers, so even if you don’t program in 
- Turbo Pascal you can still learn how t to build a 

C128 CP/M tool = | | 


The SG Tools bik box" was erated so the 
programmer can access all the C128’s features 
under CP/M and create applications ready for the 
90’s! We will start by covering all the low level 
— code needed to access the I/O chips, VDC, and 


memory.’ The second installment will use these low 


level modules to create page flipping, fast write, 

and window modules to drive the 80 column screen. 

- The final installment will cover calling CP/M’s 

- BDOS functions, building applications and — 
—aae. eed new mn too box, 


WHY USE TURBO PASCAL? 


*: “Pascal i is 5 designed to be a conipied . 
language unlike interpreted BASIC and the. 


resulting executable code is many times faster and | | 


usually smaller than equivalent 8 BASIC code. 
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_* The Turbo Pascal System has a built in text 
editor that uses Word Star commands. If you get a 
compiler or run-time error the compiler puts your 

cursor at the offending statement in the editor! 


* Turbo Pascal compiles, assembles and links — 
programs to memory or a CP /M stand alone COM file 
all in one step. COM files can be sold or 


distributed. Many CP/M versions of BASIC, Pascal, 


C, and Small C require a separate proprietary 
run-time system file and/or have a pale slow 
assemble and link process. 


_ * Source code can be ported to many different — 
types of computers that have Turbo Pascal 
compilers. I have done this with a text adventure 
written for MS DOS, but it compiled aad ran 
without modification under CP/M. If you want to 
learn Object-Oriented programming you can step up | 
to Turbo Pascal 6.0 for Ms-Dos with - | 
Object-Oriented extensions and Borland’s own 
Object-Oriented tool box called Turbo Vision. All 
the stuff you learn with Turbo Pascal and CP/M you 


— can take with you to Ms-Dos, Microsoft Windows, — 


and poe 


GETTING STARTED 
Here is a list of i items you will akedt to get 
started: | yr 3 


The CP/M boot disk that. came with your C128. 
1 used the May 87 release to —- all ad 


programs. 


1 suggest you read the article Superdhatging 
Your CP/M BIOS, CCP, & Bootdisk Utilities" by 
Randy Winchester in TC128 Issue #28. This will 
give you helpful information on optimizing your — 
CP/M system as well as covering some good public 


domain CP/M utilities. 


TC-128 on disk. Due to the volume of source | 
code and | programs I strongly suggest ordering the 


‘TC-128 companion disk. Each disk will include all 


source code, pre-compiled programs, and bonus a 
programs that can be run with or without Turbo 
Pascal. This issue will include a 80 column color 


* window. demonstration with sound! 


Turbo Pascal 2 0 or | i her for CP/M. There 





7 are a couple of v ways you can go to obtain a copy. 


The cheapest way is to find someone at a CP/M 


-_user’s group with an original copy of Turbo Pascal _ | 


2. 0 or higher and buy it for $25.00 c or less. T 


| “Issue Fat 


bought a bunch of CP/M stuff from a guy with an 
Apple I CP/M system that included Turbo Pascal 
. 2.0. 


You can also buy the latest and greatest Turbo | 
Pascal 3.1 for CP/M from Elliam Associates (listed 
at the end of the article). Turbo Pascal 3.1 is 
$64.95 plus $3.50 shipping in the U.S.. They also 
carry a large selection of CP/M software. Send 
$1.00 to the listed address for their catalog. 


Some useful utilities include: SID, other 8080 
or Z80 disassemblers, MAC, RMAC, Native Z80 
Assemblers or a Z80 macro library like the one 
~ Commodore gives you with the 1581 version of CP/M. 


Some type of file utility program other than 
PIP like SWEEP (New Sweep) for file maintenance. 


Books that most Commodore programmers have 
like: the "Commodore 128 Programmer’s Reference 


Guide", "CP/M Plus Programmer’s Guide", Compute!’s 


"128 Programmer’s Guide", books on programming the 
8080, Z80 and 6502, the December 1988: Volume 9, 
Issue 2 of the "Transactor" has a good C-128 CP/M 
Plus memory map with comments, "Programming the 
-Z80" in the August 1986 Issue 38, Volume 4, 
COMPUTE!’s Gazette, or any other related material. 


STRUCTURE OF TOOL BOX 

Each module of SG tools is a separate include 
(.INC) file. To add modules to your main program 
use Turbo Pascal’s include file compiler 
directive: [$1 MODULE.INC] where "module" is the 
name of the tool box module. It is best to keep 
the modules as simple as possible, so you do not 
have a lot of uncalled procedures which generate 
dead code at compile time. You also want to be 
able to reuse modules for many different 
applications. Borland did not add units and smart 
linking until Turbo Pascal 4.0 for Ms-Dos. So 
make sure you call all or most of the procedures 
in a module. Some modules may depend on others 
being previously defined. This will become 
clearer in the next issue when we cover fast 
string writes and windows. Now that we have all 
the basic information out of the way let’s start 

programming some I/O ports! 


_ACCESSING I/O PORTS WITH THE Z80 

_ As a C-64 or C-128 programmer you know how to 
access the Sid, Vic and Cia chips with 65XX "Ida" 
and "sta" instructions or Basic "peek" and "poke" 


with the C128’s I/O block. You cannot access the 


1/O.chips: with Z80 LD type instructions, but the © 


Z80 can communicate with the C128’s I/O chips via 
IN reg,(C) and OUT (C),reg instructions. We will 
be using Turbo Pascal’s Inline method to insert 
8080 and Z80 machine code. You can easily create 
in-line machine code by writing your Assembler 
modules with MAC and using the output listing. 


_ Just load the listing file in a text editor or 


Turbo Pascal and use the machine code portion for 
your in-line code. 


The first SG Tools module i is called PORT.INC. 
This allows your applications to access the C-128’s 
Input and Output chips. _ 

(see the listing at the end of the article) 


Problems with Turbo Pascal’s — 
PORT ARRAY 

If you are an experienced Turbo Pascal _ 
programmer you might say that Turbo Pascal already 
has an I/O array called Port. To access a VIC 
register you might use BorderColor := Port[$d020]. 
This would be great if it worked on the C128, but 


— it doesn’t. I have found using Turbo Pascal’s — 
Port array to read the C128’s I/O block returns 


false values. Like any other hacker I wrote a 
simple program using Turbo Pascal’s Port array and 


fired up my disassembler to find out why this 


occurs. What I found is that Turbo Pascal uses IN 
E,(C) and OUT (C),E just like my PortIn and _ 
PortOut, so why doesn’t it work? If you can find 
the answer send it to JBEE or myself via GEnie. 


- To be safe we will be using my port routines 


because I know they work all the time on the C128! 

I would like to stress that using Turbo Pascal’s 

Port array to write works fine though. For an 
example of this anomaly compile and run 
PORT128.PAS or run PORT128.COM on the TC128 
disk. PORT128 will read and display various I/O 
locations on the C128 with My PortIn and Turbo 
Pascal’s Port array. 


~ ACCESSING THE VDC 


I was programming late one night on a IBM PC 
in Dos and thought how great it would be if CP/M 
had the nice user interfaces like Dos, Windows 
3.X, Geos, native 64, and 128 mode applications. 
You are probably saying to yourself that CP/M is 
too slow to handle the windowing and full screen 
updates required in a graphic operating 
enviroment. Well, your right, but who needs CP/ M 
to read and write the screen? I’m sure you have 


: displayed characters directly to screen memory in | 


commands. But the Z80 works a little differently 
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native 64 or 128 mode instead of using the 3 -: : 
_Kernal’s CHROUT routine because it is much faster. | 


Most of the professional tool boxes for IBM PC DOS © : : 


_ use direct screen I/O instead of DOS or BIOS calls 
for the same reason. Direct screen I/ O can also 
be applied to CP/M on the C-128. 


Our next SG Tools module is called VDC.INC. 
It allows you to read and write VDC registers. 
Once again we will be using Inline code for aaa 
(see the listing at the end of the article) 


ACCESSING MEMORY 
Your application can easily access ney with 
Turbo rece Mem array. | 


To read memory use: Buffer := Mem{$80]; 
To write —_— use: a ba = as 


Buffer is a byte type vatable Nowthatwe = .s. 


have a way to access the C128’s I/O ports, VDC and fa : 


memory let us see how fast they are. | ee 

TIMING EVENTS IN 

TURBO PASCAL he. 
How fast is fast? Terms like "Turbo Charging’ ee : 


and "Supercharging” do not really tell you how 

fast a certain procedure is, so I created a timing — 
module called "timer.inc". It uses CLA #2’s "time 
of day" clock and does not affect CP/M’s system 
time. The program 10128.PAS compares various 1/O 
operations by timing how long it takes to do | 
10,000 operations of each.. Total time in-seconds, 
tenth of seconds and operations per second are 
displayed. My VDC routines are 30% faster than 
using Turbo Pascal’s Port array! My PortIn and 
PortOut are much slower that Turbo Pascal’s Port 
array, but they always work on the C-128. Turbo. 
Pascal’s Port and Mem are the fastest I/O methods. 

- of all. This is not surprising considering the | 
overhead of calling a procedure for portI/O. —- 
compared to using the port array. The TIMER.INC 

_ file depends on PORT.INC being previously defined. 
(see the listing at the end of the —! | 


~ FINAL THOUGHTS 
We have covered quite.a bit of ground with 

this first installment! I encourage you to modify: 
the example prograths and experiment; with the. : 
C-128’s I/O chips in CP/M mode. If yowrea:., .. 
hacker you may be. able to tweak my medules for __; 
greater speed. If you\do, add them to.1Q128.PAS, 
so we can compare methods. The modules. provided 
here are fast enough to drive windows, Page _ 






“Find ul13 
-*Cut pin 1 at the point ghar it enters the board 


e 

ita 

fe. 
Sa Se 


o flipping, 80 column video games, or whatever other 


applications you can dream oe 


If you have pee auestions or ideas, send me a 
message on  GEnie at address "s. goldsmi . Until — 
next time... 3 


| Mail sates : 


Elliam Associates 
PO Box 2664 7 
Atascadero, CA 93423 


UPS address: 
Elliam Associates | 


4067 Arizona Ave., 


Atascadero, CA 93422 


| (805) 466-8440 


(DR.OCTAL TIPS - CONTINU ED PG #25) 


your hardwired #11 devices. Here i is a haters. 7 sabe 


se from a friend: 





using an exacto knife. Put a spst switch between 
pin 1 of the ic and where pin 1 used to enter the — 


_ motherboard. You can mount the switch anywnere, 
7 preferably: under the drive led: There i isa let of. 
- room-on the C-128d’s front panel. 

*With the "ATN" line out of the serial loop 


(switch open), the device is effectively off the 
bus and will not be recognized, no o matter what 
ea # you use for it. | 


NEWS RELEASES: 

Note that news releases are NOT an endorsement 
of the product. They are news tidbits available — 
for your use in case you want to pursue something 
further that sounds interesting. — 


Bookdisks: "Non-Abberrational Capitalism: Template : 

for a New World Order" is a book on disk(s) that 

comes on two double-sided 1541 diskettes, The 

diskettes also include a functional text reader | = 4s 
which allows the reader to print out the text — 

files. Cost is $5 and available from: Paperless 


eee 109-47 ea tias baad Ozone Park, NY 11420 


Vides mene The Auxiliary Video Board (AVB) is | 


basically a C-128 80 Column VDC chip with 64K Dram | 
to be plugged into your expansion port. AVB blank 
PCB, assembly and board options, parts list, and 
examples are available for $34 plus $5 S&H from: _ 
Gregory Clark, PO Box 660366, Sacramento CA 95866 


/ 
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PROGRAM NAME: PORT.INC © oe _ | 
To read a port you use: BorderColor := PortIn ($d020); . 
To write a port use: PortOut ($d020,BorderColor); . 
BorderColor is a byte type variable. - 
function Portin (MemLoc : integer) : byte; 


var 


Load : byte; 
RegPair : integer; 


begin | | _? 
RegPair := MemLoc; | 
Inline ( a 
SED/$4B/RegPair/ — [ld bc, (RegPair) ] 
— $SED/$58/ [in e, (c) } 
$7B/ . —_ [mov a,e] 
 $32/Load [sta Load] 


7 
PortIn := Load 
wade 


procedure PortOut (MemLoc : integer; 
! Value : byte); 





var 


Store : byte; 
RegPair : integer; | 


begin : 
RegPair := MemLoc; | | : 
Store := Value; [Store = byte value to store] 
Inline ( - | 
SED/$4B/RegPair/ | {1d be, (RegPair) 
$3A/Store/. | 7 [lda Store] 
SSF/ ) [mov e,a] 
SED/$59 | [out (¢),e] 
) | | 
end;> 


PROGRAM NAME: VDC.INC : 

To read a VDC register use: FgBgColor := ReadVDC (26) 

To write a VDC register use: WriteVDC (26, FgBgColor) 

FgBgColor is a byte type variable. 

I have also included TPVDC.INC which uses TP's Port array instead 
of Inline code. | 


aA 


function ReadVDC (Reg : byte) : tisk 


var 
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| PROGRAM NAME: VDC. INC ponte: Fron previous page). 
Ps , weened : oe : | 


begin | 
VDCReg := Ry: 
Inline ( | , | 
| $01/S00/SD6/ ——C«i[{: KG b,$d600 point BC to $4600] | 
$3A/VDCReg/ | , [lda VDCReg VDC reg] 
$ED/$79/ {outp a | VDC reg to read] 
SED/$78/ | —  - Finp a get VDC status) 
SCB/S7F/ | 3 [bit 7,a test status bit] | 
$28/SFA/ | (jrz rep until bit high] 
$OC/ i f{inr © Cc. - point BC to $d601] 
SED/$78/ {inp a read VDC reg] 
$32/VDCReg | [sta -  VDCReg = stash result] 
z- 7 | : 
- ReadvVDC 7= vDCReg 
end; 


procedure WritevDC (Reg 3 byte; 
| Value : byte); 


vDCReg, sts SS ) 

vDCvalue : byte; : 
begin st” 

VDCReg s= Reg; | 

VDCValue os wenusl 


Inline. {(. ee vs | 
“$01/$00/$D6/__ > [lxi ‘b, $4600 point BC to VDC] 
$3A/VDCReg/  —. {lda a VDC reg] 

SED/$79/ | {outp a put reg in VDC] 
$ED/$78/_ [inp a get VDC reg] 

— $CB/S7F/ [bit 7,a check status] 
$28/$SFA/ —  oL jr2z. Rep until bit high] 

| SOC/ _ we [inr ¢c “point BC data reg] 
 $3A/VDCValue/  Flda b value to store] 

| SED/$79 | [outp a | put value | in vpc reg} 
end; | | , _ & 


- PROGRAM NAME: TIMER. INC. 
To read time use: Get TOD; | 
values are stored in Global tod variables. 


To set time use: ‘Set TOD CEOUne Mins, Secs, Tens); 


const bits : ae 

 cia2ToDTen = $dd08; 

-cia2TODSec = $dd09; 
cia2TODMin = $dd0a; 
Ccia2TODHrs = $dd0b; 


cia2ConRegB = $dd0f; _ 
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var 
todTen, todSec, todMin, todHrs : byte; 


procedure GetTOD; 


begin | 
todHrs := PortIn (cia2TODHrs) ; 
todMin := PortIn (cia2TODMin); — 
todSec := PortiIn (cia2TODSec); 
todTen := PortIn (cia2TODTen) 
end; | . 


procedure SetTOD (hh,mm,ss,tt : byte); 


begin — | 
PortOut (cia2ConRegB,$00); 
PortOut (cia2TODHrs,hh); 
PortOut (cia2TODMin,mm); 
-PortOut (cia2TODSec,ss); 
 PortOut (cia2TODTen, tt) 
end; — 


MUSIC PROGRAM USING PORTOUT 
PROGRAM NAME: MUSIC.COM 
This simple program uses PortOut to play music with the SID ‘chip. 


[ 
SG Tools (C) 1992 Parsec, Inc. 


Music is a short music demo using PortOut to access the SID chip. 


| pvogvan. Musies 
[$B-,R-] 
[$I PORT. INC] 
const 


Sid = $d400; 
Music : array[0..50] of integer = 


( 

25,177,250, 
28,214,250, 
25,177,250, 
25,177,250, 
(25,397,125, | 
(28,214,125, © 
32,94,750, . 
25,177,250, 
28,214,250, 
19,63,250, 
19,63,250, 
19,63,250, 
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PROGRAM NAME: MUSIC.COM (continued from previous page) 
21,154,63, 
24,63,63, 
2541777250; 
24,63;,125, 
19,63,250 
i 


procedure ClearSID; 
var 
I : byte; 
begin 
for I := Sid to Sid+24 do 
PortOut (Sid,0) 


end; 


procedure Run; 


var 
I : byte; 

begin 
PortOut (Sid+5,9); [attack/decay ] 
PortOut (Sid+6,0); [sustain/release] 


PortOut (Sid+24,15); [maximum volume] 
for I := 0 to 16 do | 
begin 
Write ('.'); | 
PortOut (Sid+1,Music[1I*3]); [high freq] 
/ 


PortOut (Sid,Music[I*3+1]); [lo freq] 
PortOut (Sidt+4,33); [gate sawtooth] 
Delay (Music[1*3+2]); [note duration] 
PortOut (Sid+4,32); [release sawtooth] 
Delay (10) 3 
end; 
ClearSID 


end; 
procedure Init; 
begin 


Cirscr> 
ClearSID; 





Writeln ('Music (C) 1992 Parsec, Inc. - All Rights Reserved'); 


Writeln; 


Writeln ('Music will play a short song with the SID.'); 


Writeln 
end; 
begin 

Init; 

Run 
end. 
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These ads are free for TC128 subscribers and 
advertisers. Commodore BBS and UG listings are 
free to all. 

All people with POBs have to submit a street 
address to Parsec with a matching night time 
telephone number (we will not release the street 
address to anyone UNLESS there is an unresolved 
problem with your ad). For sale and wanted ads 
must include either an address (street or POB) OR 
a telephone with the time to call. An example is, 
(1-508-745-9125 EST 9-5 answering machine) so 
people can easily contact you. 

All ads will run until you ask for them to be 
removed or until they are "bumped" off the listing 
by a newer ad. The date the ad was lst run will 
be expressed as 920105 (year 92, lst month, fifth 
day). 

ALL ADS *MUST* be submitted on either 1541 or 
1581 disks as either PetAscii or straight Ascii 
sequential text disk files, no exceptions! If you 
can send matching hardcopy it would be appreciated. 


We will take ads from subscribers through e-mail. 


We are not responsible for anything including typos. 


BUYER BEWARE! 

The guidelines to buying through the mail are 
unless you know the person well: 
1) Buyers and sellers should insist on COD, 
ship by UPS (if possible), cash or money order! 
2) Get a telephone number! 


3) Try to have some fun horse trading! =:) 


FOR SALE HARDWARE 

*920201 - Clay MacDonald 303-927-4498 

C128D, JD V6.0, fan, all docs, like new $300.00, 
1581, JD, like new $100 - both units have device 
switches. QBB 64 - $50, 1764(512k) - $100, Many 


other items 


*920201 Alex Dundek 612-645-6636 
1571 - new in box - best offer over $150 


*920221 Bill Golden, PSC 76 Box 2629 Army, 
APO AP 96319-2629 
1581 $135, 1571 $125, 1541 device #8 S65 


FOR SALE SOFTWARE 

WANTED HARDWARE 

*920220 John Stewart 602-378-6316 

BI Buscard II IEEE Interface 

CSI 425 or Interpod serial to IEEE interface 


Users and/or Maintainence Manual MSD drive 
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WANTED SOFTWARE 

*920220 John Stewart 602-378-6316 

Catalog program by Intergrated Software Systems 
Masterdisk, Masterdual, Super-Masterdisk (preferred) 
SI/FI - MISC 

*920709 Wanted - a complete set of the Transactor 
magazines. Willing to pay $2.50 per issue - contact 
Parsec Inc. by phone, mail, or e-mail. 

BBS_ LISTINGS 

USER GROUP LISTINGS 

*920201 - Basic Bits Commodore Group, PO Box 447 

PO Box 447, North Ridgeville OH 44039 


*920225 - CBM Users Group of Lewis County 
c/o Al Kistenmacher 2476 PeE11-McDonald Rd. 
Chehalis, WA 98532 


*920310 - Boise Area Commodore Users Group 
3213 Kelly Way, Boise, ID 83704-4620 


*920626 - "Meeting 64/128 Users Through 

the Mail" 
1576B County Rd 2350 E. St. Joseph, IL 61873 
is a correspondence User Group 6 years old 
with 240 members. Dues $12. Write for more 


information. 
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Legal Notices, ads, submissions: 

*No part of Twin Cities 128 the magazine or disk 
may be copied in whole or in part for any reason. 
*Twin Cities 128 may not be transmitted, stored, 
copied, or sold in any way, shape, or form except 
by Parsec, Inc. Twin Cities 128 is sold only 
through Parsec, Inc. Twin Cities 128 is 
distributed by Parsec, Inc. and RIO computers. 
* C-128, C-128D, CBM, and other names of 
Commodore equipment are trademarks of Commodore 
Business Machines. All other trademarks or service- 
marks mentioned in this magazine belong to their 
respective owners and are mentioned for their 

benefit or for editorial purposes. 

*Liteweir, Lweir, RUR U2, Software Light Years Ahead 
of the Rest, Twin Cities 128=trademarks of Parsec,Inc. 
*NOTICE ABOUT SOFTWARE* The programs and files on 

our companion disk are COMMERCIAL programs and just 
because you own a copy of the magazine DOES NOT 
entitle you to a free copy of the disk and 

programs. The Twin Cities 128 companion disks are 
only sold legally through Parsec, Inc. and RIO 
computers. 

*SOFTWARE NOTICE, RIGHT TO USE:* 

The software (or hardware) and routines published 

in this magazine can be used free of charge only 

if ALL of the following conditions are meet: 

*1)The program is Public Domain, free, AND if you 
were a subscriber when the issue was published. 
*2)You have to give a written notice on your first 
screen or title screen, where this type of phrase 
can be clearly noted by the user (as an example): 
"Sound Routines from Twin Cities 128 - issue #32". 
"Graphic Routines from Twin Cities 128 - issue #32". 
*3)You have to send us a copy on disk or upload the 
program to our library on GEnie. Don’t send by email! 
*4)I£ there is any kind of a charge for the program 
either as commercial or shareware software, or if it 
is a "demo" for a company, contact us FIRST before 
releasing the software/hardware so we can talk 

about the liscening fee. This usually will be some- 
thing small, such as copy of the finished product. 
If we find out after the fact it will cost 

you *MUCH* more. 


through the U.S. mail will be considered valid. 


Only written releases from us 


*These routines may not be uploaded to any network. 
*These routines may NOT put into ANY disk library 
collection - individual use only - no exceptions! 
*Submissions:"submissions greedily accepted" 
Average author rate is $25-S$100 plus a free six 
issue extension with the disk. We gladly consider 
any program, article, software, or hardware for 
publication. 
done by established staff members that have already 
‘had aruieies published. aad rates: full page with : 
color(s) $200+, full page B&W $150, 1/2 page S60. 


Reviews of software and hardware are 
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Twin Cities 128 Subscription Information 


Magazine only: 
6 issues a year - $20 for the US 
6 issues a year - $26 all others 


Magazine with companion disks: 
6 issues a year - $36.50 for the US 
6 issues a year - $46.50 for all others 


User Group Rates (minimum of two subscriptions) 
Magazine only: 

6 issues a year - $17 for the US 
Magazine with companion disks: 
6 issues a year - $26.00 for the US 


For the US: 

The cost to add the companion disk to TC128 
from a current subscription starting with 
issue #32 is $4.00 for each remaining issue. 


For all others: 

The cost to add the companion disk to TC128 
from a current subscription starting with 
issue #32 is $6.00 for each remaining issue. 


Effective 920201 we will acknowledge all 
(re)subscriptions, change of addresses, 

and subscription inquires by either a letter or 
postcard. 


How to read your address label: 
Istline: #4 # ABC.XXXXXX.XXX 


The first number is the issue on which your 
subscription ends and the second number following 
it will have a "1" if you are owed the companion 
disk. The third set of letters & numbers is your 
customer ID #. This may not be on all labels 


2nd line:Attention line - usually not used 


3rd line:Your Name 

4th line:Your Address 

5th line:City, State, Postal Code 

6th line:Country (not written on US labels) 


Make checks payable in U.S. funds to: 


PARSEC INC 

PO BOX 111 | 

SALEM MA 01970-0111 | , 
USA - 
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GEOS MACHINE LANGUAGE PROGRAMMING 
ON THE 128: 

"THE TOOLS OF THE TRADE" 

by Robert A. Knop Jr. 


I. INTRODUCTION 

Why would the prospective C-128 machine language 
programmer want to program under Geos? For one, 
the Geos128 operating system provides an excellent 
user interface, which you might want to take 
advantage of in your own programs. More 
importantly, under Geos it is a lot easier to 
write powerful user-friendly programs than it is 
on a cold C-128. The Geos Kernal supplies routines 
for icons, menus, dialogue boxes, graphics, text, 
and more, all available to an application, which 
reduces the burden on the application’s 
programmer. No longer do you have to worry about 
"how" to implement a pull-down menu; tell Geos 
what menus to put on the screen and what to do 
when one is selected, and Geos takes care of the 
rest. 


Il. YOUR PRIMARY PROGRAMMER’S TOOL: 
GEOPROGRAMMER 


In 1987, Berkeley Softworks published 
geoProgrammer, a complete software development 
system for Geos64. GeoProgrammer has three parts. 


First is geoAssembler, which does the dirty 
work of converting your assembly language source 
(written with geoWrite) into relocatable machine 
language code. GeoAssembler is an extremely 
powerful label-based assembler, complete with 
local labels, macros, conditional assembly, an 
impressive expression evaluation facility, and 
more. 


The second application, geoLinker, allows you 
to build a program out of several separate _ 
modules, each independently assembled with _ 
geoAssembler. GeoLinker also allows you to create 
VLIR applications. A VLIR application consists of 
one memory resident module, as well as several 
swap modules which are loaded from disk as needed. 
This means you can write programs longer than the 
memory space available. For instance, both | 
geoWrite and geoPaint are VLIR applications. 


The third and perhaps most impressive part of 


geoProgrammer is the geoDebugger. ‘With this,. you 7 ee 


can set break points in your code, step through . 


your code, examine memory, and track down 
lingering bugs in your program. The original 
geoDebugger came in two forms: the powerful 
label-based SuperDebugger, available only if you 
have a RAM expansion unit, and the scaled down 
mini-Debugger. 


Plus, aside from the three major applications, 
a number of goodies come with the geoProgrammer 
package. This includes a complete file of the 
Geos symbols which you can include in your 
source code, as well as a file of useful macros 
for common operations like loading a memory 
location with an immediate value. Full source 
code to three sample do-nothing applications is 
included. Which is useful in demonstrating 
the structure of the various Geos application 


types. 


Shortly after the release of the first version 
of geoProgrammer, advertisements started to appear 
for the soon-to-be-released geoProgrammer2.0, 
which promised support for the Commodore 128. 
Unfortunately, geoProgrammer?2.0 was never 
published, but was left unfinished as Berkeley 
Softworks (now GeoWorks) began to develop PC-Geos 
for MS-DOS machines. Thus, it would seem that 
potential Geos128 programmers were out of luck. 
If they wanted to develop applications for 
Geos128, they would have to do so under Geos64. 
Fortunately, some Geos programmers were not 
content to let things sit the way they were. 


PATCHING GEOPROGRAMMER 

As it is, the three geoProgrammer 
applications, geoAssembler, geoLinker, and 
geoDebugger, refuse to run under Geos128, due to a 
flag in their headers which says that they can 
only be run from Geos64. If that flag is changed, 
geoAssembler and geoLinker "almost" run under 
Geos128. More precisely, they do run, but things 
are slightly out of kilter in 80 columns; and if 
one is going to geoprogram on the 128, it would be 
nice to take advantage of the 128’s two megahertz 
fast mode available only in 80 columns. 


All is not lost; at least two people have 
developed patches for the geoProgrammer 
applications which allow them to be run neatly 
from Geos128. The patch I shall discuss, 
"geoProgrammer Patch 2.1," was written by Robert 


. J.G. Norton; patches for the programs have also” 
~~ been written by Jean F. Major. 
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Once the patch has been applied, geoAssembler _ 
_ and geoLinker both run quite nicely in 40 or 80 
columns under Geos128. The patched geoDebugger — 
can only debug 40 column applications, and the 
patched SuperDebugger trashes the 128’s RAM reboot 
code. However, one need not concern oneself with 
this, due to the existence of geoDebugger2.0, . 
which I shall discuss SnORDY: 


‘How does one eatrn this patch? The ee iS 
- designed to operate on an already installed 
geoProgrammer. Moreover, it is wise to perform 
the patch on a copy of your geoProgrammer 
applications, rather than the original disk. This 
is not a problem if you have both Geos64 and — 
Geos128, and if both have the same Kernal ID. 
If, when installing one Kernal, you told it to’ 
match itself to an application installed with the 
other Kernal, then both Kernels will have the same 
ID. If you are unsure whether both have the same 
Kernal ID, try running a Geos64 program, say _ 
~ geoPaint, from Geos128. If it doesn’t complain, 
then you should be.OK. In this case, you can 
‘simply install the programs with Geos64, copy them 
to another disk;.and perform the ae on the 
second disk with Geos128. | 


If you don’ t have Geos64, don’t dicspaae In 
order to install the programs with Geos128, you 
must modify one byte in the header of each 
application. To do this, you will need a disk 
sector editor (such as Disk Doctor 128, or 

-DiskMon). Sector editor in hand, look at track 
18, sector 1 ($12, $1) of your geoProgrammer disk. 
You should see the first block of the disk’s 

_ directory. Locate the directory entry for (say) 
geoAssembler, That directory entry will look like 
(sample DiskMon output): 


>00b00. 12 09 83, Oa 04.47 45 Af 
41. §3.53,45.4d 42 4c 45 
_t+++4,Geoassemble 


->00b10. 52 a0 a0 a0 a0 0a 11 01 
06 57: 0b 02 0e 2f 56 00 
; ye sx eee Ww. * aye ‘fas = ° 


Immediately following the 16 character file 
name (padded with $a0’s) is a track sector pair... 
_ This is the:track and sector of the header Sea 
for geoAssembler- i in this example, track 10, | 
sector 17 ($0a, $11). Read that sector. The 96th ~ 
-. ($60) byte of that sector should contain the value. 
‘128 ($80). : 


This is the flag which indicates that 


_ geoAssembler cannot be run from Geos128. 


Change this byte to 0, which indicates that the 
application can be run from Geos128 in 40 columns. 
Be very careful when doing this; a misstep could 
scramble your geoProgrammer disk! | 


Repeat this procedure for geoLinker. Once 
finished, you should be able to install both 
programs with Geos128. Note that if you are using 
a 1571 disk drive, you must temporarily configure 
it (using, of course, Configure) as a 1541 for the 
apstanabon| to work. 


| Now that you have e installed the geoProgrammer 
applications, copy them to a second disk; do not | 
patch your original copy of geoProgrammer. Then — 


_copy the geoProgrammer Patch 2.1 program to that 


disk. Simply double click on the Patch program, 
follow the instructions the program gives you, and 
you will have copy of geoAssembler and geoLinker | 
that can be cleanly run from Geos128! At this 

point, in order to distinguish the patched 
applications from the originals, you may want to’ 
rename them to "GEOASM 128" and "GEOLINK 
128," or something along those lines. | 


GEODEBUGGER 2.0 
Although geoProgrammer 2.0 was never released, 
it was reasonably close to being finished. In 


“particular, version 2.0 of the Debugger had been — 


nearly completed. This Debugger features full 128 
support. One impressive feature is the BackKRAM _ 
debugger. With this, one does not need an RAM | 
EXPANSION UNIT to run the SuperDebugger! The 
SuperDebugger loads itself into the "other" 64K of 

the 128’s RAM, giving the full power of the 
SuperDebugger without taking away any of your 

app acalion: space. 


Much to the delight of Geos programmers, 
GeoWorks (the new name for Berkeley Softworks) 
released the 2.0 debugger for informal 
distribution as an upgrade for geoProgrammer 
owners. What this means is, if you own 


-geoProgrammer, then you are entitled to upgrade to 
the 2.0 Debugger by. downloading it from Q-Link, or 
‘wherever else you can find it. (Note, however, 


that legally you must purchase geoProgrammer — 


_ before obtaining a copy of geoDebugger 2.0. ) 


Although geoDebugger 2.0:-works quite nicely 
as-is with the 128, this has not stopped people 


from writing patches which enhance the 


functionality of the debugger. For instance, in 
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order to get the BackRAM debugger, you must hold 
down the space bar while geoDebugger loads. Since 


_ forgetting to do this loads the SuperDebugger into 


your ram expansion unit, trashing the ram reboot 
code, I wrote a patch (backdebug.patch) which 
forces geoDebugger 2.0 to load the BackRAM 


_ debugger. Other patches which improve upon the 


2.0 debugger exist, such as Jean F. Major’ Ss 
"Debugger: ee : 


COPING WITHOUT GEOPROGRAMMER 
If you don’t have geoProgrammer, there do 

exist (at least) two shareware Geos assemblers: 

geoCope, by Bill Sharp, and the Springboard 


_ Assembler by Jim Holloway. Both assemblers — 


Twin Cities 128 


_ produce Geos code, and work with Geos128, although . 
3 only 1 in 40 column mode. Each of these assemblers 


is a single unit; neither provides, nor requires, 
a linker. 


GeoCope comes with its own editor and 
assembler, as well as with some sample files. 
Since the assembler takes files from the editor, 
you can’t use the full power of geoWrite to edit 


_ your source code. The editor, while usable, isn’t — 
- nearly as powerful as geoWrite, and is at times 


somewhat hard to use. For instance, you can’t use 
the mouse to position the cursor, and I wasn’t 

able to figure out how to move more than a line at" 
a time within a page. The assembler is label 
based, allows the use of multiple source files 
through the .include directive, and does support 


-VLIR files. It is limited to 8K of object code. 
One thing nice about this assembler is that it 


gives more information about.the program being 
assembled than does geoProgrammer. 


The Springboard Assembler takes as its source © 
geoWrite files. It too is label based, although 
with certain commands (e.g. Ida, sta) you can’t 
use forward referenced labels. This makes it 
difficult to put data blocks after the end of your 


_ code. Like geoCope, the Springboard Assembler. 


lets you have separate source code modules. 
However, there is no .include directive, so any 


_ equates you use will have to be typed directly 
~ into the source file that needs them. 


If you are serious about programming in Geos, 
you are going to want to get a hold of — 
geoProgrammer. However, if you just want to 
dabble in programming Geos, or experiment with 


some small things, then either of these assemblers 


could be useful for you. The shareware price of 


geoCope is $15; of the Springboard Assembler, $5. 


Ill. TEXTWARE 
The manual which comes with geoProgrammer is _ 
excellent. It clearly and completely describes 


the operation of all three geoProgrammer 


applications. However, it assumes prior knowledge | 
of both assembly language and Pecgramuing under 


Geos. 


"The Official Geos Programmers Reference Guide" 
(PRG) from Bantam Books is a good book for 
learning how to program under Geos. It assumes 
knowledge of 6502 assembly language, and a user’s © 


familiarity with Geos, and from there quickly gets 


you up to sa on the basics of Plog ania in 


~ Geos. 


It describes the concept of event-driven 
programming, and discusses how Geos uses this. It 
goes on to describe how to.create icons and menus, 
and use them within your programs. Following.a 
chapter. on how to convert applications:to Geos | 
format (which can be ignored by geoProgrammer 


owners, since geoProgrammer takes care of all of 


that for you), the book goes on to discuss using 


_ graphics and text with Geos, as well as more © 


advanced topics such as processes, dialogue boxes, 
the file system, input drivers, and printer 


drivers. 


_ Although occasionally obtuse, and sprinkled 
with a truly amazing number of typos, the PRG is — 
very useful for the programmer who wants to learn 
how to program Geos. Unfortunately, the PRG is — 
now out of print, but you may be able to find a 
copy at a local used bookstore, or convince a 
friend who no longer needs it to sell it to you. 


~ When GeoWorks decided to make the move into 


MS-DOS software, they stopped work on a second 
Geos programming manual. ‘Although they maintain 
the copyright, GeoWorks has released the latest 
draft of this manual as the freely distributable 
"Hitchhiker’s Guide to Geos". You can obtain this 
manual by copying it from a friend, or by sending 
$25 to GeoWorks. a 
> 4 t 

Sporting an alphabetical list of all the Geos 
Kernal routines, as well as chapters of updated 
programming information.and more in-depth 


technical information about Geos64, Geos128, and 
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Apple Geos, the Hitchhiker’s Guide is a better. 
reference than the Programmer’s ‘Reference Guide. 
It is more complete, and its information is more |. 
up-to-date and thus more reliable. Moreover, it — 

_ has some information specific to Geos on the — 

- Commodore 128, something lacking from the PRG. 
Also, in spite of being a draft rather than a | 
final work, it has far fewer typos: than: the. PRG! 


3 Before geoProgrammer or the PRG came out, an 
__ individual by the name of Alexander Boyce 
disassembled and deciphered the entire. Geos64 
kernal. The result of his efforts is his 
shareware "Geos Programmer’ S Reference. Manual" 
(not to be confused with the Official PRG by 
Berkeley Software). This manual contains succinct 
and clear documentation of the Geos Kernal 
routines, as well as some general informational — 
topics. The information is not current (it was _ 
written long before Geos128 v2.0), and: because 
_ Boyce had to invent his own symbol names, his - 
labels for routines are completely different from 
the Geos standard.’ (If you can get your hands on 
-acopy of Volunie 9, Issue 3 of the "Transactor', 
‘you will see that Francis Kostella has. compiled a 


complete cross reference between gi aaa 


symbols and Bayee’ s symbols.) 


Boyce’s manual is efoteresting as a different 
writer’s explanation of the Geos Kernal; it is 
also impressively accurate, although he does fail - 
to note certain restrictions and conventions that 
_ can be found in the official literature. (For 
_ instance, he doesn’t note certain parts of zero 
page which are off limits for Desk Accessories.) 
He does address a few topics not found in either — 
the PRG or the Hitchhiker’s Guide (for example, 
the geoPaint file format). It can be found, among 
other places, in archived PETASCII format in the 
GEnie FlagShip library under the names 
eet EC REr AR where X is 5 1, 2, » and 3. 


Finally, the standard programming ies 
for the 128 can.come in handy:: This ificludes your: 


_ favorite book on 128 assembly language, as well as — 
other classics such as Bantam’s "Commodore 128 
Programmer’s Reference Guide’, ‘Compute! Books’ 


oe the 128", and ABACUS’s ee Internals’. 








pow arsine I I geopr eS 
C-128 with just a C-128, Geos128, ‘and a: 1541 disk 
ally speaking, at the very least you~ : - 








will need a 1571 or a second drive for ee 


but small projects. Although an application may 
only take up (say) 10K on a disk, its numerous 

geoWrite assembly source files can become quite 
large. OO 


As with anything in Geos, the presence’ of an 
ram expansion unit makes everything much sme | 
smoother, and easier. With a sufficiently large | 


_ ram disk (and for a large enough project,a ~~.’ 


ram1571 may not.be enough!), you can put ~ 


geoProgrammer, your source files, intermediate 


files and final assembled and linked programs all - 
on a ram disk (remembering to frequently copy: - 


‘modified source files to a disk). Or, perhaps you 


would prefer to use a shadowed drive. If pinched 
for space, you can keep the applications and 


output files on a RAM DISK, and store the valuable 


source files ona floppy. In any event, a ram 


- expansion unit is almost a necessity if you want 


to do much geoprogramming and stay sane. 


V. CONCLUSION 

Geoprogramming is not just for the 64. Thanks 
to the efforts of some dedicated Geos128 
programmers, you can take advantage of the full 
power of geoProgrammer completely from your 
Commodore 128. If you have programmed in assembly 
language before, you will be surprised how little 
effort it takes to produce very impressive results 


_ under the Geos operating system. For a true _ 


programmer, there is nothing like the: satisfaction 
of seeing a complete, powerful, user-friendly 


_ program ... with your name in the Info box! 


The freely-distributable software discussed in 
this article such as geoProgrammer Patch 2.1, 
geoCope, and the Springboard Assembler, as well as 
geoDebugger2.0, can be found on Q-Link, GEnie, and 
the internet ftp site milton.u.washington.edu. 
Also check other on-line semen and BBSs local 
to ous area. | 


Editor’s note: you. can also find these files 
on Parsec’s public domain disks Geou 13, Grou 14, 
Geou 15, and de 16. : 
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MEMO WRITER & CALENDAR ~ en ot 


For CMD Hard Drives and 
RamLinks 


by Ronald Robert 


INTRODUCTION 

When I first got RamLink I wrote a two line 
program to read the hard drive clock and write the 
time and date to the screen on power up. Then I 
thought gee wouldn’t it be nice if I could leave 
myself reminders and have them list on power up 
too. Well having a 128 I wanted it to work in all | 
modes and be a relatively short program. The © 
following is what I came up with. I used some _ 


Jiffy Dos commands in the programs'so if you want - es = ie | 


to use them without Jiffy Dos (why would anyone 5 4 ‘ 
have a CMD hard drive and not have Jiffy Dos ?) _ 
you'll have to make some changes. By the way it ge 
also works'with the Ramcard II time clock. The = *, e | 
two programs are written in basic so ey can be oan. + 


werk 
He 
AS. 
? 


ay cumomized. 


MEMO WRITER 

This is a text editor that creates a list. a : 
up to 12 things to do. The list is stored by date 
and used by the calendar program. The first few _. 
lines set the storage device number and default 
date, they can be changed as required. The 
program will run in 64 or 128 mode in either 40 or | 
80 column mode. It starts by asking for the memo 
date, this is the date that you want your list to 
be displayed on. Once you input the date the 
program checks for an existing memo for that date. 
If one exists, it is loaded into the editor and 
is displayed. The current memo date is shown at 
the top of the screen then the 12 lines of the 
things to do list. Below that is a list of 
commands, they all use the Commodore key and a 
_ letter, they are as follows: 


- C-- Change line: 

' This command will let you type the snfonmation 
on lines 1 thru 12. You will be asked which line 
#, then you can type in the information. The line 
can only be 36 characters long so don’t type past 
the arrow. If you need more room use the next 
line to complete your note. When you hit return 
the line will be added to the list. . 





D - Delete a line: 
ars will delete a line or a range > of fines 
Ex. (3 to 3) will delete line three. 3 to >) 
will delete lines 3, 4 and 5. 


I - Insert.a line: 
Will move the lines so you can put a note 
between two existing lines. 


S - Switch a line: . 
Can be used to exchange hie positions of 2 of 
the 12 memos. 


P - Print a list: : 
Dumps the list of the 12 ‘Ries to i to 
device 4, the printer. 


W - Write a file: 

Saves the list to the storage device. NOTE: 
It will automatically overwrite an ele file 
of the same date. 


R - Read file and Reset memo date: 

This will change the memo date but when it 
does it will check to see if there is alreadya — 
memo for that date. If there is the existing memo 
will be loaded and the memo on the screen will be 
overwritten. 


Q - Quit: 

Although the Connodore Q command is not listed 
in the command box it 1s available and will reset 
the comipules: 


| NOTE: If you want to put leading spaces in a memo 


to indent a line for instance, you must use 
shifted 9 a 


CALENDAR 
Now that you have a list of iene to ce you 


need a utility to show it to you on the right day. 


Well this is it.. The first few lines set the time 

clock device # and the storage device # (should be 
the same as the storage device # in memo writer) - 
these can also be changed as required. 


This utility can be run when you want to check 
your memos or set up as an autoboot file and will 
display the date and time when ever you start your 
computer, along with any messages that there are 
for that particular day. If there are any 


a messages they will be listed then you will be 


given the option to delete them. If you say yes 


(Y) the file will be scratched and the screen will 
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clear. The next time you turn the computer on 330 open15,sd,15:input#15,e:close15 


gm 
that day there will be no messages. If you say no dn 340 ife=62thengoto420 
(N) the screen will clear but the file will stay ml 350 print"delete today’s messages n" 
_ intact so that the next time you power up the bh 360 forzq=1tol:printchr$(145) ; :next 
message will be shown again. | | fo 370 forzq=1to23: printchr$(29); :next: input dls 
a be 380 ifdlS="y"thengoto430 | 24 
I use the programs in ramlink (nt the default lh 390 ifdlS="n"thengoto410 
partition) and use the ramcard II clock so that is _ - np 400 goto350 
what the programs are set up for. If you want to en 410 printchr$(147):printchr$(142) | 
_use the hard drive and hard drive clock, you can, eh 420 new 


430 scS="s:"+rightS(dtS, 8) 


__ by changing the variables as explained inthe md 
~ first few lines of both programs. I used the hard ke 440 @sc$;sd 

drive clock before I upgraded to ramcard II and it lh 450 printchr$(147) :printchr$(142) :new 
worked fine a little slower but fine. This = mh 460 ifdy$="sun. "thendyS="Sun.": return 
program also runs in 64 and 128 40 and 80 column 43 470 ifdy$="mon. "thendy$="Mon.": return 
modes. gk 480 ifdyS="tues"thendyS="Tues”: return 
|: is ee ; hh 490 ifdyS="wed. "thendyS="Wed.” :return 
The lines to change in "Calendar.bas" for your na 500 ifdy$="thur"thendy$="Thur": return 
device numbers are on line # 160, the variables _ ne 510 ifdy$="fri."thendy$="Fri.":return 
te and "sd". jg 520 ifdyS="sat."thendyS="Sat.":return 


fi 530 gota410 
, The lines to change in "Memo.writer.bas" for | 
your device number i is on line # 160, the yerebiee . : 





"sd" | 
| 7 PROGRAM NAME: MEMO.WRITER.BAS 
TC=Time Clock _ | | _ | | 
SD= Storage Device | ee -e@0 100 rem by ronald robert 
AD$= Default Memo Date = hh 110 rem copyright (c) 1992 by 
7 id 120 rem parsec inc pob 111 
ao 130 rem salem ma 01970-0111 —y 
| | ? : pj 140 rem program name = memo.writer. bas 
PROGRAM NAME: CALENDAR.BAS . oe a na 150 : | 
| a a ae ; | | bh 160 sd=08:adS="01/11/92" 
eo 100 rem by ronald robert - ah 170 printchr$(14) 
hh 110 rem copyright (c) 1992 by «4 : ph 180 rem sd is the program and memo storage © 
id 120 rem parsec. inc. pob 111 os device #. 7 - 
ao 130 rem salem ma 01970-0111 cn 190 rem ad§S is default memo date 
dja 140 rem program name = calendar.bas => dm 200 openl15,sd,15,"i" 
mais0: | on ae be 210 jg=1:dim tt$(12) 7 
1d 160 tc=08:sd=08 —_ + th 220 sps=" — | a ee 
dj 170 rem tc = timeclock device #. | | mp 230 poke 53280,15:poke 53281, 15:poke 646,1 | 
Uh 180 rem sd = - memo and program storage device: #. ik 260 dS="[SH/N]": :n=1;g0tol1240. 
em 190 printche8(147): #=9:  ttpeek(215)=128thens=s+20 dl 250 rem menu screen / dS is sokion, éholce : 
cf 200 printehs3(14) ae ae | ek 260 gosub 400 . = _ 
pb 210 openl5,tc,15° 6 0 ed 270 printchr$(147):print” dS 
cp 220 pends rece ba 280 print” list of things to aes oO “a 
hp 230 geot#i5; a8: stontGtati epee ehatD) | 7 ik 290 fori=1to13:print chr$(17); :next 
jb 240-9lose15- eee. Te, dn 300 print” - [] commodore key + letter" 
pb 250 dteLefts(ts, 13). @.'2 ie _ oe a : _ dj 310 print” (Cl]=change line [I)=insert line " 
Lb 260 mmBmmids (tS, 5:9) Paty gate 88 Oe 2a “dd 320 print”. [D])=delete line . [S}=switch line " 
lh 270 dyS=lefts (ts, 4): Seaubned: cote @eri. « nl 330 print” [W]=write file [Pl=print list ae 
ed 280 hréomidS(t$,15, 3) pt, PR ane Bo 5 No: | ol 340 print” [R]*read file and reset memo date a 
nh 290 dnS=right$(ts, 4) af ae eee | SS 3 fa 350 print: print: printspce(38)"*" | 
lm 300 printteb(s)". teday is * dyS-+mmS df 360 printspc(17)"dont type past here *", 
| ke 310 printtab(s)" the time is "hrS+dn$ mj 370 ifjg<>0then380 | 
-. §§ 320 @trights(dt$,8),tc — al 380 return. 








bg 
if 


JJ 


no 
jl 
dl 
nd 


id 
hj 
kj 


fo 
nc 
jb 
| - 
cf 
ik 
jh 
jl 


‘0a 


KE 


ck 
nl 
pa 
bg 


ad 
aa 
ef 
cb 


00 
el 
nl 
jb 
bl 


oF 


ih 
ja 
hj 
no 
ko 
i 


ok 


390 
400 


410 


420 


430 
440 
450 
460 
470 


480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


610 
620 
ln 630, 


640 
650 
660 
670 


‘680 


690 
700 
710 
720 
730 
740 


750 


760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 





rem 
printchrS$(19) : forzq=1to20:printchrS$(17); 
snextzq | 

print" 

printchr§(19): sa ral printchrS(17); 
snextzq 

return 

rem display 

printchr$(19):print: print 

for x=ntontll 

print right$(str$(x),2);" ";ttS(x)+right$ 
(spS , 36-(len(ttS(x)))) 

next: printchrS(19) 

return 

rem main menu 

gosub260: jg=1 

gosub450 

getds: ifdS=""then530 

if dS=" [C=/C]"then630 

if dS="[C=/D]"then700 

if dS="(C=/I]"then840 

if dS="[C=/S]"then950 

if dS="[(C=/W]"then1210 

if d$="(C=/R]"then1210 
ifdS="(C=/P]"then1280 ’ 
ifdS="[C=/Q]"then1380 

goto 530 

gosub 400 

input" what number" ;wn 

if wn<l or wn>1Z then 690 

gosub 400 - 

input" ";ttS (wn) 

if len(ttS(wn))>36 then ttS(wn)="" 
goto 510 

gosub 400 

input" from what umber: ff 

if ff<1 or ff>12 then 830 

gosub 400 
input" to what number";tn 

if tn<ff or tn>12 then 830 

for x=ff to tn 

ttS(x)="" 

next — 

if tn=12then830 

for x=tnt1tol2 | 
ttS(x-(tnt+1)+f££)=ttS$ (x) ' 

next ; 

goto 510 

gosub 400 

input" what number" ;wn 

if wn<l or wn>12 then 940 

gosub 400 

input" ";ttS 

if len(tt$)>36 then 940 


for x=11 to wn step-1 
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ab 
bn 
kl 
pf 
po 
mi 
; a 
, bm 
cn 
me 
kf 
ef 
ci 
lo 


hm 
ol 
dm 
nn 


mi° 


ga 
ka 
cl 
fo 
lo 
ef 
bj 
on 
cc 
lk 
pk 
ad 
om 
ec 


sp 


co 
ed 
8&8 
jb 
gO 
bj 
og 
dh 
jd 
md 
kl 


fn 
kf 
ak 


ci 


910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


1030 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150: 


1160 
1170 
1180 
1190 
1200 


1210 


1220 


1230 


1240 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


(1360 


1370 
1380 
1390 


ttS(x+1)=ttS(x) 


next 


ttS(wn)=ttS 

goto 510 

gosub | 400 

input” first number"; ff 
if f£<1 or ff>12 then 1020 
gosub 400 

second number” 
if sn<l or sn>12 then 1020 

ssS=ttS( ff) :ttS(£f£)=ttS (sn) :ttS(sn)=ss$ 
goto 510 | 

awS=adSt+",s,w" 

print#15,"s0:"+tadS 

open8,sd,8, awS 

for x=1tol12 

if ttS(x)=""then ttS(x)="_" 

print#8, ttS(x) | 

next 


input". ;sn 


closes _ 

goto 510 

alS=adSt",s,r" 

open8,sd,8,alS 
input#15, a: ifa<>0then1190 

forx™1to12 | 

input#8, ttS(x) 

if st=64then1190. 

next. 

close8 — 

goto 510 

gosub400 

ifdS="[C=/R]"thenprint "Read Memo Date 
ifdS="[C=/W]"thenprint"Write Memo Date 
ifdS=" [C=/N]"thendS="[(C=/R]":print" set: 
date "+adS; 

fori=1tol0: printchr$(157);: nexti:input ad$ 
ifdS=" [C=/W] "then1030 

ifdS=" (C=/R]"then1120 

open4,4, 7:close4:open4,4, 7 

print#4, chr§(14);"things to, do : 
print#4 

forx=1to12 | 
ifttS(x)=""thenttS(x)="_" 

print#4, rightS(strS(x),2);" 

next 
print#4, :print#4, ere Seineee 
print#4. :print#4, :print#4 

close4 

goto510 

md=peek (215) :ifmd=13thensys64738 
sys57344 


“+ad$ : 
"+ads; 


memo 


"sadS 


"sttS(x) 


A note about letters inside of brackets [] within 


quotes. 


key. 


[ 


(C=/W]. = Press the Commodore key with the W 
SH/N) = Press a shifted N-with the quotes. 
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TWIN CITIES 128 CHECKSUM PROGRAM BY MICHAEL GILSDORF OPEN 2,8,2,"0:FILENAME,S,W": CMD 2 


If you decide to type in programs from Twin # 
Cities 128 magazine, you should first type in and PRINT# 2: CLOSE 2 
run TC128 Checksum. This program checks your The same technique can be used to send the 
typing by generating a two-letter checksum each listing to a printer: 
time you enter a program line and press the RETURN | OPEN 2,4: CMD 2 
key. The checksum is displayed in the upper left # 
hand corner (home position) of the 40 or 80 column PRINT# 2: CLOSE 2 
screen. To check for typing errors, compare the 
checksum on the screen with the one appearing in The TC128 Checksum program is listed below. 
the magazine listing. If they’re different, then Be sure to save a copy to disk before running it. 
you know you’ve made a typing error. The magazine Once run, it will automatically activate itself. 


listing will show the correct two letter checksum 





in front of each Line number. 1 print chr$(147);"tc128 checksum v1.0" 

TC128 Checksum will detect most typing errors 2 print "by mike gilsdorf (c) oct 91": print 
such as transposed characters and misspellings 3 bank 15: for a=3328 to 3583: read d: poke a,d: 
but can on rare occasion be fooled. It uses the t=ttd: next 
line number and value of each character as weli as 4 if t<>29208 then print "data error": end 
its position on the line to generate the checksum. 5 poke 770,00: poke 771,13 
TC128 Checksum will ignore spaces unless they 6 print “tc128 checksum activated" 
appear inside quotes or within BASIC keywords. 7 print "to list, type: #": print 
You can use BASIC keyword abbreviations such as ? 8 print "to deactivate, type:” 
for PRINT without affecting the result. 9 print "poke 770,198: poke 771,77" 

TC128 Checksum is also designed to make it 10 
easier for you to indent text or enter blank 100 data 162, 255, 134, 60, 32, 147, 79, 134 
lines. To indent text, simply type the line 105 data 61, 132, 62, 32, 128, 3, 170, 240 
number, space or tab over to where you wish the 110 data 14, 144, 15, 201, 35, 208, 7, 166 
text to begin, and then begin typing. This 115 data 45, 165, 46, 76, 223, 13, 56, 76 
feature will improve the readability of your 120 data 212, 77, 32, 160, 80, 169, 32, 198 
listings by making portions of your program such 125 data 61, 209, 61, 208, 8, 198, 61, 209 
as FOR-NEXT loops and DO loops stand out more 130 data 61, 240, 250, 230, 61, 230, 61, 32 
easily. To enter a blank line, type a line number 135 data 10, 67, 132, 13, 160, 0, 32, 89 
followed by at least two spaces (or tab) and a 140 data 13, 56, 32, 240, 255, 32, 129, 146 
shifted character. When the program is listed, 145 data 19, 18, 32, 78, 75, 32, 146, 27 
only the line number will appear. 150 data 81, 0, 24, 32, 240, 255, 76, 234 
30 FOR J=1 TO 80 155 data 77. 162, 0, 134, 251, 134, 254, 24 

TC128 Checksum also has the ability to 160 data 165, 22, 101, 23, 133, 253, 177, 61 
generate a checksum listing. This listing will 165 data 240, 33, 170, 224, 34, 208, 2, 230 
show the checksum along side each line number as 170 data 251, 165, 251, 74, 176, 4, 224, 32 
the program is listed. To begin the listing, type 175 data 240, 14, 166, 254, 177, 61, 24, 101 
a # in direct mode (without a line number) as the 180 data 253, 133, 253, 202, 16, 246, 230, 254 
first character on a line. Do not include any 185 data 200, 208, 219, 152, 208, 5, 169, 45 
additional BASIC commands on the line; otherwise 190 data 168, 208, 17, 165, 253, 74, 74, 74 
they will be ignored. Once the listing begins, 195 data 74, 24, 105, 65, 168, 165, 253, 41 
you can use the NO SCROLL key or STOP key to pause 200 data 15, 24, 105, 65, 140, 75, 13, 140 
or stop the listing as desired. You’1ll find the 205 data 205, 13, 141, 76, 13, 141, 206, 13 
checksum listing especially useful if you need to 210 data 96, 200, 32, 236, 66, 153, 20, 0 
redisplay the checksums and double check the 215 data 192. 3, 208, 245, 200, 169, 63, 141 
lines you’ve already entered. 220 data 0, 255, 32, 89, 13, 169, 0, 141 
OB 30 FOR J=1 TO 80 225 data 0, 255, 32, 129, 146, 78, 75, 32 

Also, should you decide to submit a program 230 data 0, 166, 22, 165, 23, 32, 35, 81 
listing to Twin Cities 128 magazine for | 235 data 32, 181, 75, 166, 65, 165, 66, 134 
publication, you can use the # command to save a 240 data 97, 134, 61, 133, 98, 133, 62, 32 
checksum listing to disk. To create an a SEQ file 245 data 152, 85, 160, 0, 32, 236, 66, 133 
listing, type: | 250 data 65, 200, 32, 236, 66, 133, 66, 208 


255 data 184, 197, 65, 208, 180, 76, 55, 77 
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